Me da un error:
"El número de argumentos es incorrecto o la asignación de propiedad no es valida"
El código es el siguiente:
Código:
Public Function UserName() As String
Dim rs As Recordset
Dim con As Connection
Dim consulta As String
Dim userWindows As String
userWindows = "g2104"
Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentDb.Connection
rs.OpenRecordset "SELECT txt_login, txt_password FROM uyc_multirriesgos_comercios WHERE txt_cxguser ='" & userWindows & "'", bd, adOpenStatic, adLockReadOnly
Etiqueta96.Caption = rs.Fields(0)
Etiqueta97.Caption = rs.Fields(1)
End Function
Decir que trabajo con VBA en Access97, y alguna de las funciones/propiedades no me aparecen como "rs.open".
Muchas grácias!