1. Visual Basic - Curso completo teoria y practica

Command1
Nombre BdgrdTabla
Font Arial (Negrita 10)
HeadFont Arial (Negrita 10)
Nombre CmdAceptar
Caption &Mostrar
Una vez establecidas las propiedades, proceda a ingresar
el siguiente código:
Dim Cn As ADODB.Connection
Dim RsAlumno As ADODB.Recordset
Dim RsCurso As ADODB.Recordset
Dim RsLaboratorio As ADODB.Recordset
Private Sub UserDocument_Initialize()
Set Cn = New ADODB.Connection
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
CboTabla.AddItem “Alumno”
CboTabla.AddItem “Curso”
CboTabla.AddItem “Laboratorio”
End Sub
Private Sub MostrarAlumno()
Set RsAlumno = New ADODB.Recordset
RsAlumno.ActiveConnection = Cn
RsAlumno.CursorType = adOpenStatic
RsAlumno.LockType = adLockReadOnly
RsAlumno.CursorLocation = adUseClient
RsAlumno.Open “Select AluCodigo As Código, ” & _
Pág. 377