[RESOLVED]Can you help me solve my problem ? Thanks you

[nUflAvOrS]

Private Sub cmdLogin_Click()
Dim pStrLoginWhere As String
Dim rSLogin As Recordset
Dim DecryptedPass As String
    Call ValidateEmptyField(frmlogin)
 
            pStrLoginWhere = " WHERE User_ID = '" & txtUname.Text & "'"
            
            Set rSLogin = SQLSELECT("*", "UserControl", pStrLoginWhere, "", "", "Maintenance")
            If Not (rSLogin.BOF = True Or rSLogin.EOF = True) Then
                DecryptedPass = RndCrypt(rSLogin!Password, "Password")
                    If txtPassword.Text = DecryptedPass Then
                        gstrUserGroup = rSLogin!Position
                        gstrUserID = rSLogin!User_ID
                        Me.Hide
                        MDIMaintenance.Show
                    Else
                        MsgBox "Invalid Password, Please Try again", vbOKOnly, "Invalid Login"
                        Call HighLight(txtPassword)
                    End If
            Else
                MsgBox "Invalid User Name Login.try again!", vbOKOnly, "Login!!"
                Call HighLight(txtUname)
            End If
End Sub
 
Public Sub SQLExecute(pstrDBName As String)
    
    Set conn = New ADODB.Connection
    
    conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
    "Persist Security Info=true;" & _
    "Initial Catalog=Maintenance;User Id=;Password=;Data Source=SHLIM\SQLEXPRESS;"
    
    conn.Open
End Sub
 
Public Function SQLSELECT(pstrFIELD As String, pstrTABLE As String, pstrWHERE As String, pstrGROUPBY As String, pstrOrderBy As String, pstrDBName As String) As ADODB.Recordset
    Dim pstrSELECT As String
   
 
    pstrSELECT = " SELECT " & pstrFIELD & " FROM " & pstrTABLE & pstrWHERE & _
        pstrGROUPBY & pstrOrderBy
    
    Call SQLExecute(pstrDBName)
[U][I]    SQLSELECT.Open pstrSELECT, conn, adOpenKeyset, adLockPessimistic, adCmdText [/I][/U]
    
End Function

Please help me check my code contains any problem because i obtain error of -- > Object variable or with block variable not set.

Thanks !!!