Problema con recorset en SQLServer2000

[KingColt]

Como concetarme correctamente a sqlserver2000, utilizo un modulo

'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

'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

[David]

Creo que el ' = ' que pones después de Open está mal... .
Quizás sea ese el problema...

Debería ser:
rsVendedor.Open "select*from vendedor",cn

[KingColt]

Parece que me esta fallando la vista, ya solucione el problema
gracias