With oConn
 
  .Provider = "SQLNCLI.1"
  .Properties("Data Source") = ".\SQLEXPRESS"  ' lokaler Server
  .Properties("Integrated Security") = "SSPI"  ' Win-Auth
  .Properties("User ID") = "xxxxx"             ' User
  .Properties("Password") = "xxxxx"            ' Paßwort
  .Properties("Initial Catalog") = "xxxxx"     ' Name der DB
  .Properties("Persist Security Info") = False
  .CursorLocation = adUseClient
  .Open
 
  .Execute "create table tabelle1 (test1 int, test2 int)"
 
  .Close
 
End With