KundeAdapter_B.UpdateCommand = New OleDbCommand("Update Customer_B SET ID=@ID" & _
  "WHERE ID=@ID", GetAccess(connectstring_B))
        KundeAdapter_B.UpdateCommand.Parameters.AddWithValue("@ID", _
        OleDbType.BigInt)
        KundeAdapter_B.UpdateCommand.Parameters.AddWithValue("@Name", _
        OleDbType.VarChar)
        KundeAdapter_B.UpdateCommand.Parameters.AddWithValue("@Vorname", _
        OleDbType.VarChar)