Dim conn As SqlServerCe.SqlCeConnection = Nothing
    Dim cmd As SqlServerCe.SqlCeCommand = Nothing
    Dim rdr As SqlServerCe.SqlCeDataReader = Nothing
    Dim da As New SqlServerCe.SqlCeDataAdapter
    Dim ds As New DataSet
    Dim cmd2 As New SqlServerCe.SqlCeCommand
 
        conn = New SqlServerCe.SqlCeConnection("Data Source=" & strPDAPfad & _
          ";" & strPDAPasswort)
        conn.Open()
 
    cmd2.CommandText = "SELECT * FROM Namen"
        cmd2.Connection = conn
 
        ' Set data adapter command
        da.SelectCommand = cmd2
 
 
        da.Fill(ds, "Vorname")