Dim SQL_Query As String
SQL_Query = "UPDATE tblAnrufer SET active=1"                    
Dim sSQL As New OleDbCommand(SQL_Query, adoConn) 
Dim ds As New DataSet
Dim oda As New OleDbDataAdapter(sSQL)
 
sSQL.Parameters.Add("@p1", OleDbType.Integer, 5, "active") 
Dim prm As OleDbParameter = sSQL.Parameters.Add("@ps", OleDbType.Integer)
         prm.SourceColumn = "active"              ' Schlüsselspalte
         prm.SourceVersion = DataRowVersion.Original   
         oda.UpdateCommand = sSQL
         oda.Update(ds, "tblAnrufer")