Imports System.Data.SqlServerCe
 
Module Module1
 
    Sub Main()
 
        Dim ceConn As SqlCeConnection
 
        ceConn = New SqlCeConnection("DataSource= c:\mylibrary.sdf")
        ceConn.Open()
 
        Dim com1 As SqlCeCommand
        Dim dr1 As SqlCeDataReader
 
        com1 = New SqlCeCommand("Select title from titles", ceConn)
        dr1 = com1.ExecuteReader
 
        While dr1.Read
 
            Console.WriteLine(dr1!title)
 
        End While
 
        Console.ReadKey()
 
    End Sub
 
End Module