Dim objConn As ADODB.Connection 'hier ist mein Problem
        Dim strSQL As String
 
        If FileExists(m_strDBFileName) = False Then
            MsgBox("Datenbank nicht gefunden", vbCritical, "Fehler")
            Exit Sub
        End If
 
        On Error GoTo err_flash
        objConn = New ADODB.Connection
        With objConn
            .CursorLocation = adUseClient
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = m_strDBFileName
            .Open()
        End With
 
        Select Case vsAction
            Case "Create_Table"
                strSQL = "CREATE TABLE tbl_Neu (ID  COUNTER  NOT NULL " & _
                         "CONSTRAINT   PK_ID_no   PRIMARY KEY, " & _
                         "Comment      TEXT, " & _
                         "NumericField LONG      DEFAULT 10, " & _
                         "TextField    TEXT(20))"
            Case "Delete_Table"
                strSQL = "DROP TABLE tbl_Neu"
            Case "Add_New_Column"
                strSQL = "ALTER TABLE tbl_Neu ADD COLUMN Neue_Spalte MEMO"
            Case "Del_Column"
                strSQL = "ALTER TABLE tbl_Neu DROP COLUMN Neue_Spalte"
            Case Else
        End Select
 
        objConn.Execute(strSQL)
        objConn.Close()
        objConn = Nothing
 
        Select Case vsAction
            Case "Create_Table"
                lblStatus.Text = "Tabelle erfolgreich erstellt."
            Case "Delete_Table"
                lblStatus.Text = "Tabelle erfolgreich gelöscht."
            Case "Add_New_Column"
                lblStatus.Text = "Neue Spalte erstellt."
            Case "Del_Column"
                lblStatus.Text = "Spalte erfolgreich gelöscht."
            Case Else
                lblStatus.Text = Err.Description
        End Select
        On Error GoTo 0
        Exit Sub
 
err_flash:
        lblStatus.Text = Err.Description

Mfg, lighty

---------------------------------------------------
Schaut mal hier:
http://www.reset.ch/index.html

(die Links sind ungef?hrlich )

Ps.: F?r jeden, der wie ich, zu oft vorm Rechner sitzt