'IrgendWo oben ein Imports System.Data.OleDb
'dann  ist es lesbarer
 
Try
            'Eintragung in die Datenbank
            Dim sqlStr As String = "SELECT * FROM " & "tblElement"  ' "SELECT *" & _
              "FROM " & currentTabelle.TableName
            'Verbindungsstring
            Dim strConn As String = _
              "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User" & _
              "ID=Admin;Data Source=" & _
             eQM_DbPath & Modulname & ".mdb"
 
            Dim DBconnection As New OleDbConnection(strConn)
            Dim OleDbDA As New OleDbDataAdapter(sqlStr, DBconnection)
            Dim oCmdd As OleDbCommandBuilder = New OleDbCommandBuilder(OleDbDA)
            OleDbDA.Update(eQM_cls_Login.objt_ds_Login.Tables("tblElement"))
        Catch ex As Exception
            MsgBox(ex)
        End Try