lo hice así como me dijiste y no me funciona
que he ehecho mal? tengo algo de más??? o hay que configurar VB????
no entiendo
Private Sub show_grilla()
Dim id, pwd, server, basestring As String
Dim basedatos as New ADODB.Connection
Dim Coneccion As String
Screen.MousePointer = 11
usuario = "usuario"
pwd = "contrasena"
servidor = "mi_servidor"
basestring = "mi_base"
Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & pwd & ";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