Foros del web, para los que viven de bits

Dim cmd As New SqlCeConnection
       
        Dim comand As New SqlCeCommand
        Try
           Dim cad As String = "C:\Rutadondeseencuentralabd\mibd.sdf;Max Database Size=4091;Encrypt Database=True;Password= mypassword;"
            cmd.ConnectionString = "Data Source=" + cad
            cmd.Open()

        Catch ex As SqlCeException
            MessageBox.Show(ex.Message)
        End Try

        With comand
            .Connection = cmd
            .CommandType = CommandType.Text
        End With

        comand.CommandText = "Select campos From tabla where condiciones"

       
        Dim my_SQL_DataAdapter As New SqlCeDataAdapter
        Dim my_SQL_DataSet As New DataSet

        my_SQL_DataAdapter.SelectCommand = comand
        my_SQL_DataAdapter.Fill(my_SQL_DataSet, "nombre_tabla")
        cmd.Close()