[Resolvido]Problema em codigo para criar MsgBox

Boas.
Estou a ter problema em um código que fiz e sinceramente não consigo ver onde esta o mal.
Alguém me pode ajudar?
Não sei se o problema e por minha base de dados estar com palavra passe.
Se for eu uso o sistema de palavra encriptada na tabela com recurso a fncCrip.
Set db = ws.OpenDatabase(caminho, False, False, ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))

Option Compare Database
Option Explicit
Dim db As DAO.Database
Dim rs As DAO.Recordset
-------------------------------------
Dim strsql, Xc, first As String

Xc = DLookup("Path_0", "tblCaminhoBe")

       strsql = "SELECT * from tblUsuários IN '" & Xc & "' where Usuario = " & Login.Usuario
       Set db = CurrentDb
       Set rs = db.OpenRecordset(strsql)
       
       If Not rs.BOF Then
       first = rs("Primeiro")
       Set db = Nothing
       Set rs = Nothing
       
If first = False Then Exit Sub
If MsgBox("Bem vindo" & Login.Usuario & "!" _
& vbCrLf & "Esta fazendo login em:" & fOSMachineName() _
& "e com Windows:" & MostraVersao & "." & vbCrLf _
& "DESEJA GUARDAR ESTE PC COMO PRINCIPAL?" _
, vbInformation, "Configuração") = vbNo Then Exit Sub
rs.Edit
rs("Primeiro") = False
rs("PC") = fOSMachineName()
rs("Ip") = MostraVersao
rs.Update
rs.Close
End If
Set db = Nothing
Set rs = Nothing
-------------------------------------

Ninguém consegue me dar uma ideia
de como poderei resolver a questão?

Tenho uma outra função que usa essa linha:

Option Compare Database
Public db As DAO.Database
Public ws As DAO.Workspace
Private rs As DAO.Recordset
Public SQL As String
-------------------------------------------
Public Function Desconectar()
SQL = "Select * From 0Administração "
SQL = SQL & "Where ID = 1"
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(caminho, False, False, ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
Set rs = db.OpenRecordset(SQL)
Desconectar = rs!DesconectarTodos
If Desconectar = True Then
DoCmd.OpenForm "Desconectar"
End If
db.Close: Set bd = Nothing
End Function

Tentei adaptar esse codigo na função mas me da erro na linha a verde.

Option Compare Database
Public db As DAO.Database
Public ws As DAO.Workspace
Private rs As DAO.Recordset
Public SQL As String
-------------------------------------
Dim first As String

strsql = "SELECT * from tblUsuários where Usuario = " & Login.Usuario
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(caminho, False, False, ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
Set rs = db.OpenRecordset(SQL)

If Not rs.BOF Then
first = rs("Primeiro")
Set db = Nothing
Set rs = Nothing

If first = False Then Exit Sub
If MsgBox("Bem vindo" & Login.Usuario & "!" _
& vbCrLf & "Esta fazendo login em:" & fOSMachineName() _
& "e com Windows:" & MostraVersao & "." & vbCrLf _
& "DESEJA GUARDAR ESTE PC COMO PRINCIPAL?" _
, vbInformation, "Configuração") = vbNo Then Exit Sub
rs.Edit
rs("Primeiro") = False
rs("PC") = fOSMachineName()
rs("Ip") = MostraVersao
rs.Update
rs.Close
End If
Set db = Nothing
Set rs = Nothing

já tentei isso mas da erro.
e não percebo porque funciona na função desconectar e não na que estou fazendo....

Bom fiz algumas alterações e ja obtenho alguma coisa.
alterei o codigo para o seguinte.

Option Compare Database
Option Explicit
Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset
Dim strsql As String
Dim Xc As String
--------------------------------------
Xc = DLookup("Path_0", "tblCaminhoBe") '"[NomeBE] = 'STControl.accdb'")

strsql = "SELECT * from tblUsuários IN '" & Xc & "' where Usuario = ' " & Login.Usuario & " ' "
Set db1 = OpenDatabase(caminho, False, False, ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
Set rs1 = db1.OpenRecordset(strsql)

If Not rs1.BOF Then
first = rs1("Primeiro")
Set db1 = Nothing
Set rs1 = Nothing

If first = False Then Exit Sub
If MsgBox("Bem vindo" & Login.Usuario & "!" _
& vbCrLf & "Esta fazendo login em:" & fOSMachineName() _
& "e com Windows:" & MostraVersao & "." & vbCrLf _
& "DESEJA GUARDAR ESTE PC COMO PRINCIPAL?" _
, vbInformation, "Configuração") = vbNo Then Exit Sub
rs1.Edit
rs1("Primeiro") = False
rs1("PC") = fOSMachineName()
rs1("Ip") = MostraVersao
rs1.Update
rs1.Close
End If
Set db1 = Nothing
Set rs1 = Nothing
Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
Me!Senha = Null
Me!Senha.SetFocus
End If
End With
End Sub

agora obtenho o seguinte erro na parte em verde

Run-time error '3061'
Poucos Parâmetros. 1 esperado.

Ja descobri o erro. alterei o que esta a azul.

estava me dando problema com a formula pra mostrar a versão do windows.
mas ja encontrei o problema.

Afinal já não esta a dar. não faz nada.....

Pedro, conseguiu resolver essa questão?

Aguardamos...