1. Visual Basic - Curso completo teoria y practica

Command1
seguida:
Nombre CmdBuscar
Caption &Buscar
Default True
A continuación debe ingresar el código que se muestra en
Dim Cn As ADODB.Connection
Dim RsCurso As ADODB.Recordset
Dim RsProfe As ADODB.Recordset
Private Sub Form_Load()
Set Cn = New ADODB.Connection
Set RsProfe = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
RsProfe.ActiveConnection = Cn
RsProfe.CursorType = adOpenStatic
RsProfe.LockType = adLockOptimistic
RsProfe.CursorLocation = adUseClient
RsProfe.Open “Select Distinct CurProfe From Curso”
Do While Not RsProfe.EOF()
CboProfe.AddItem RsProfe(“CurProfe”)
RsProfe.MoveNext
Loop
End Sub
Private Sub CmdBuscar_Click()
Set RsCurso = New ADODB.Recordset
RsCurso.ActiveConnection = Cn
RsCurso.CursorType = adOpenStatic
Pág. 330