Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim sConnection As String = "server=(local);uid=test;pwd=PassWord;database=C:\Documents and Settings\Compaq_Owner\My Documents\Visual Studio 2008\Projects\Medications\Medications\medications.sdf"
 
        Dim objCommand As New SqlCommand
        objCommand.CommandText = "Select doctor From Doctors"
        objCommand.Connection = New SqlConnection(sConnection)
        objCommand.Connection.Open()
 
        Dim objDataReader As SqlDataReader = objCommand.ExecuteReader()
 
        If objDataReader.HasRows Then
            Do While objDataReader.Read()
                Console.WriteLine(" Your name is: " & objDataReader(0))
            Loop
        Else
            Console.WriteLine("No rows returned.")
        End If
 
        objDataReader.Close()
        objCommand.Dispose()
 
 
 
    End Sub
End Class

<connectionStrings>
<add name="WindowsApplication1.My.MySettings.medicationsConnectionString"
connectionString="Data Source=|DataDirectory|\medications.sdf"
providerName="Microsoft.SqlServerCe.Client.3.5" />
</connectionStrings>

Data Source=MyData.sdf;Persist Security Info=False;

Data Source=" + (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\\MyData.sdf;Persist Security Info=False;

Data Source=MyData.sdf;Persist Security Info=False;Data Source=MyData.sdf;Persist Security Info=False;