Dim oConn As ADODB.Connection
  Set oConn = New ADODB.Connection
 
  With oConn
    .Provider = "SQLNCLI.1"
 
 
      ' Connection SQL-Server 2005 Express mit Win-Authentifizierung
 
      .ConnectionString = New Connection
 
      .Properties("Data Source") = ".\SQLEXPRESS"  ' lokaler Server
      .Properties("Integrated Security") = "SSPI"  ' Win-Auth
      .Properties("Persist Security Info") = False
      .CursorLocation = adUseClient
 
      .Open
 
      .Execute "CREATE DATABASE mydb1 ON PRIMARY" + "(Name=mydb1, filename =" & _
        "'C:\mssql  
        \mydb1_data.mdf', size=3," + "maxsize=5, filegrowth=10%)log on" + "( _
        name=mydbb_log,  
        filename='C:\mssql\mydb1_log.ldf',size=3," + "maxsize=20,filegrowth=1)"
 
 
 
    .Close
 
  End With

 
Dim oConn As ADODB.Connection
  Set oConn = New ADODB.Connection
  With oConn
    .Provider = "SQLNCLI.1"
 
      ' Connection SQL-Server 2005 Express mit Win-Authentifizierung
 
      .ConnectionString = "Provider=SQLNCLI.1;Integrated Security=SSPI;" & _
        "Persist Security Info=False;" & _
        "AttachDBFileName=C:\mssql\mydb.mdf ;Data Source=pcandreas\sqlexpress"
 
 
      .Open
 
 
     .Execute "create table tabelle1 (test1 int, test2 int)"
 
 
    .Close
 
  End With