Me pueden ayudar con esta orden para access

Public Sub modInfoAuxiliar(micuenta As Long)
'la variable miPaciente sería el identificador del paciente
'Creamos las variables que nos recogerán la fecha y la compañía aseguradora
Dim vnombre As String
Dim vnombre2 As String
Dim vnombre3 As String
Dim vnombre4 As String
Dim vnombre5 As String
'Buscamos la compañía aseguradora del paciente
vnombre = DLookup("[nombre]", "cuentas", "[cuenta]=" & micuenta)
vnombre2 = DLookup("[nombre]", "cuentas", "[cuenta]=" & micuenta)
vnombre3 = DLookup("[nombre]", "cuentas", "[cuenta]=" & micuenta)
vnombre4 = DLookup("[nombre]", "cuentas", "[cuenta]=" & micuenta)
vnombre5 = DLookup("[nombre]", "cuentas", "[cuenta]=" & micuenta)
'Asignamos los valores obtenidos a los controles correspondientes del formulario
With Forms!recibo1
.txtnombrecuenta.value = vnombre
.txtcodcuenta2.value = vnombre2
.txtcodcuenta3.value = vnombre3
.txtcodcuenta4.value = vnombre4
.txtcodcuenta5.value = vnombre5
End With
End Sub

cuando la ejecuto me sale este error se a producido el error 2465 en tiempo de ejecución error definido por la aplicación o el objeto, le doy depurar y me resalta la cadena de texto que esta en negrita