Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
 
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "User ID=Admin;" & _
                          "Data Source=C:\Dokumente und" & _
                          "Einstellungen\xxx\Eigene Dateien\Songarchiv.mdb")
 
        con.Open()
 
        Dim cmd As New OleDbCommand("SELECT tbl_Bands.*, tbl_Alben.* FROM" & _
          "tbl_Bands INNER JOIN tbl_Alben ON tbl_Bands.ID = tbl_Alben.Band-ID" & _
          "WHERE tbl_Bands.Band LIKE @Param", con)
 
        cmd.Parameters.AddWithValue("@Param", "Ro%")
 
 
 
 
        Dim dr As OleDbDataReader = cmd.ExecuteReader
 
 
 
 
 
        While dr.Read()
            lbx_Alben.Items.Add("Album")
        End While
 
        dr.Close()
 
        con.Close()
 
 
    End Sub

dr As OleDbDataReader = cmd.ExecuteReader

Gru?

RollingStones