VB Code:
Private Sub Form_Initialize()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
Set cn = New ADODB.Connection
cn.ConnectionString = strconn
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset
rs.Open "select viajes.desde, viajes.hasta,viajes.id_socio,viajes.anombrede,viajes.id_auto, viajes.espera, viajes.hora from viajes", cn, adOpenDynamic, adLockOptimistic
Set rs2 = New ADODB.Recordset
rs2.Open "choferes", cn, adOpenDynamic, adLockOptimistic
Set rs3 = New ADODB.Recordset
rs3.Open "socios", cn, adOpenDynamic, adLockOptimistic
Set rs4 = New ADODB.Recordset
rs4.Open "select choferes.id_auto, viajes.desde, viajes.hasta, socios.id_socio, viajes.espera from viajes, socios, choferes where viajes.id_socio = socios.id_socio and viajes.id_auto = choferes.id_auto", cn, adOpenDynamic, adLockOptimistic
Set rs5 = New ADODB.Recordset
rs5.Open "reservaciones", cn, adOpenDynamic, adLockOptimistic
Set rs6 = New ADODB.Recordset
rs6.Open "select choferes.id_auto,choferes.chofer, choferes.estado from choferes", cn, adOpenDynamic, adLockOptimistic
Set Form1.rs7 = New ADODB.Recordset
rs7.Open "select socios.id_socio, socios.nombre, socios.telefono, socios.direccion from socios", cn, adOpenDynamic, adLockOptimistic
Set rs8 = New ADODB.Recordset
rs8.Open "select saldo.id_auto, saldo.saldo, saldo.fecha from saldo", cn, adOpenDynamic, adLockOptimistic
Set rs9 = New ADODB.Recordset
rs9.Open "select saldo.saldo, saldo.id_auto, saldo.fecha from saldo", cn, adOpenDynamic, adLockOptimistic
End Sub