Dim sqlstr As String
sqlstr = "SELECT * FROM Tabelle1" 
 
Dim myAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sqlstr, _
  conn)
 
Try
    conn.Open()
    myAdapter.Fill(myDataSet, "Tabelle1")
 
    Dim myDataView As DataView = New DataView(configDataSet.Tables("Tabelle1"))
 
    Me.myListBox.DataSource = myDataView
 
    Me.txtName.DataBindings.Add("Text", _
                                                              Me.myListBox.Item_
                                                              s, _
                                                              "Name")
 
    Me.txtVorname.DataBindings.Add("Text", _
                                                                   Me.myListBox_
                                                                   .Items, _
                                                                   "Vorname")
 
   Me.txtWohnort.DataBindings.Add("Text", _
                                                                 Me.myListBox.I_
                                                                 tems, _
                                                                 "Wohnort")
 
Catch ex As Exception
   MsgBox("Couldn't get data, due to: '" + ex.Message + "' !")
Finally
   conn.Close()
End Try

__________________________
Es ist nicht schlimm etwas nicht zu wissen, schlimmer ist, es nicht zu erfragen.
(alt. t?rkisches Sprichwort)