Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
  Dim adap as New SqlCeDataAdapter( "select id,kennzeichen from kfz", "Data" & _
    "Source=|DataDirectory|\db.sdf")
  Dim dt as New DataTable ("Kfz")
  Adap.Fill( dt )
 
  ListBox1.DisplayMember = "Kennzeichen"
  ListBox1.ValueMember = "id"
  ListBox1.DataSource = dt
End Sub