Dim oConn As ADODB.Connection
  Set oConn = New ADODB.Connection
  With oConn
    .Provider = "SQLNCLI.1"
 
    If SQL_Authentifizierung = True Then
      ' Connection SQL-Server 2005 mit SQL Authentifizierung
    .Properties("Data Source") = db_SQL_Server
    .Properties("User ID") = db_benutzer
    .Properties("Password") = db_PW
    .Properties("Initial Catalog") = dbName
    .CursorLocation = adUseClient
    .Open
 
    Else
      ' Connection SQL-Server 2005 Express mit Win-Authentifizierung
 
     .Properties("Data Source") = ".\SQLEXPRESS"   ' lokaler Server
     .Properties("Integrated Security") = "SSPI"   ' Win-Auth
     .Properties("User ID") = db_benutzer          ' User
     .Properties("Password") = db_PW               ' Paßwort
     .Properties("Initial Catalog") = dbName       ' Name der DB
     .Properties("Persist Security Info") = False
     .CursorLocation = adUseClient
     .Open
 
     .Execute "create table tk (id bigint IDENTITY (1, 1) NOT NULL primary key," & _
       "data1 VarChar(250), data2 VarChar(100), data3 VarChar(100), data4" & _
       "VarChar(100), data5 VarChar(100), data6 VarChar(100))"
 
 
    End If
 
    .Close
 
  End With