Dim oPfad As String = "F:\Visual Basic NET" & _
          "2008\SQL-Abfrageprogramm\SQL-Abfrageprogramm\bin\Debug\"
        Dim myConn As SqlConnection = New SqlConnection("Data" & _
        "Source=BÜRO-PC\SQLEXPRESS;Integrated Security=True")
 
        '  "Nr COUNTER CONSTRAINT [Nr] PRIMARY KEY, " & _
 
        Dim oCommand As SqlCommand = myConn.CreateCommand()
 
        oCommand.CommandText = "USE [" & oPfad & "Buch.mdf]; " & _
        "DROP TABLE IF EXISTS Filme; " & _
        "CREATE TABLE Filme (" & vbCrLf & _
        "Titel TEXT (100), " & vbCrLf & _
        "Genre TEXT (30), " & vbCrLf & _
        "USK INTEGER, " & vbCrLf & _
        "Regisseur TEXT (30), " & vbCrLf & _
        "Laenge INTEGER, " & vbCrLf & _
        "Veroeffentlichung DATETIME, " & vbCrLf & _
        "id INTEGER NOT NULL AUTO_INCREMENT, " & vbCrLf & _
        "PRIMARY KEY (id));"

Hänk

(Wer früh aufsteht hat mehr vom Tag)