Como concetarme correctamente a sqlserver2000, utilizo un modulo
Cita: 'Modulo
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub conecta()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=VENTA"
cn.Open
End Sub
El problema es que me manda error en la linea de color rojo, no me reconoce la variable cn del rsVendedor, pero si me la reconoce en el rs
Cita: 'Codigo del formulario
Private Sub Form_Load()
Call Module1.conecta
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM venta", cn
Set dgVenta.DataSource = rs
'llenar la lista con los vendedores
Set rsVendedor = New ADODB.Recordset
rsVendedor.CursorLocation = adUseClient
rsVendedor.CursorType = adOpenKeyset
rsVendedor.LockType = adLockOptimistic
rsVendedor.Open = "select*from vendedor",cn
Do While Not rsVendedor.EOF
LstVendedor.AddItem rsVendedor
rsVendedor.MoveNext
Loop
End Sub
En tiempo de diseño me aparece "error de compilacion se esperaba fin de la instruccion" y al ejecutar
"error de sintaxis"
Donde esta el error