Dim objConnection As OleDb.OleDbConnection = _
   New OleDb.OleDbConnection _
   ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
   "Data Source=1234.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
 
    Private Sub login_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
 
        objDataAdapter = New OleDb.OleDbDataAdapter _
        ("SELECT firma, id FROM firmen", objConnection)
        objDataAdapter.Fill(objDataSet, "firmen")
        objDataView = _
           New DataView(objDataSet.Tables("firmen"))
 
 
    End Sub