Problema de Conexion

[pcarvajal]

seguro, mira:
en GENERAL --> DECLARACIONES tengo:
Private basedatos As ADODB.Connection

en GENERAL --> show_grilla tengo:
Private Sub show_grilla()

Dim usuario, contrasena, servidor, basestring As String
Dim basedatos As Connection
Dim Coneccion As String
Dim Rs As Recordset

usuario = "mi_usuario"
contrasena = "mi_contrasena"
servidor = "mi_servidor"
basestring = "mi_base"

Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & contrasena & ";Initial Catalog=" & basestring & ";Data Source=" & servidor
basedatos.ConnectionString = Coneccion
basedatos.Open

SQL2 = "SELECT * FROM agr_seguros (NoLock) "
Set Rs = New ADODB.Recordset: Rs.Open SQL2, basedatos, adOpenDynamic, adLockOptimistic

grilla.Rows = 0

If Not Rs.EOF Then
While Not Rs.EOF
grilla.Rows = grilla.Rows + 1
grilla.Row = grilla.Rows
grilla.Cols = 3
grilla.Col = 1
grilla.Text = RTrim(Rs.Fields("codigo_bien"))
grilla.Col = 2
grilla.Text = RTrim(Rs.Fields("nom_cia_seg"))
grilla.Col = 3
grilla.Text = RTrim(Rs.Fields("monto_poliza"))
Rs.MoveNext
Wend
End If

Set Rs = Nothing
End Sub


y aun así me arroja ese error que te mencioné