Imports System.Data.SqlServerCe
Imports System.Reflection
 
Public Class form1
 
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim conn As SqlCeConnection = Nothing
        Dim strDBPath As String
        Dim ergebnis As SqlCeResultSet
        Dim cmd As New SqlCeCommand
        strDBPath = System.IO.Path.GetDirectoryName( _
          Assembly.GetExecutingAssembly.GetName.CodeBase.ToString.Trim) & _
          "\db.sdf"
        'strDBPath = "\DB_Lewe.sdf"
        conn = New SqlCeConnection("Data Source= ‘" & strDBPath & "‘")
        conn.Open()
 
        cmd.CommandType = Data.CommandType.Text
        cmd.CommandText = "select id,kennzeichen from kfz"
        cmd = conn.CreateCommand()
 
        ergebnis = cmd.ExecuteResultSet(ResultSetOptions.Updatable Or _
          ResultSetOptions.Scrollable Or ResultSetOptions.Sensitive)
 
        ListBox1.DataSource = ergebnis.ResultSetView
        ListBox1.DisplayMember = "Kennzeichen"
        ListBox1.ValueMember = "id"
 
 
    End Sub
End Class