or
| Dim conn As New SqlCeConnection |
| Dim cmd As New SqlCeCommand |
| conn.ConnectionString = "datasource = " & System.AppDomain.CurrentDomain.BaseDirectory & "DSDB.sdf" |
| cmd.Connection = conn |
| cmd.CommandText = "Select Name from Visitas Where Enable = '1'" |
| Dim da As New SqlCeDataAdapter(cmd) |
| Dim dt As New DataTable |
| conn.Open() |
| da.Fill(dt) |
| conn.Close() |
| MDIParent1.RadComboBox1.DisplayMember = "Name" |
| MDIParent1.RadComboBox1.ValueMember = "ID" |
| MDIParent1.RadComboBox1.DataSource = dt |