Private Sub execNQuery(ByVal cmdText As String)
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=e:\access\muellerse\partnerprogramm\angebotsdatenbank.mdb"
        Dim conn As New OleDbConnection(conStr)
        Dim cmd As New OleDbCommand(cmdText, conn)
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn.Close()
    End Sub
 
    Private Sub butLöschen_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles butLöschen.Click
        Dim sql As String = "DELETE FROM tblAngebote WHERE [Angebots-ID] = '" & _
        txtAID.Text & "'"
        execNQuery(sql)
    End Sub

Gru?,

Sebastian M?ller

www.ComOnShop.de