Coding login VB6

Coding Membuat Form login VB6Private Sub CmdOk_Click() Dim strsql As String, x As Integer Dim StrDecrypt As String strsql = "Select * From UserLogin Where UserId='" & Trim(TxtUser) & "' " If rslogin.State <> adStateClosed Then rslogin.Close rslogin.Open strsql, DbCon, adOpenDynamic, adLockOptimistic ' Cek User If rslogin.EOF Then ' User tidak ada di table MsgBox " User Id tidak terdaftar ! ", vbOKOnly, "Error" TxtUser.SetFocus Else ' cek Password For x = 1 To Len(Trim(rslogin("UserPassword"))) StrDecrypt = StrDecrypt & Chr$(Asc(Mid(Trim(rslogin("UserPassword")), x, 1)) - 100) Next x If Trim(TxtPassword) <> StrDecrypt Then ' Password tidak sama MsgBox " Password Salah ! ", vbOKOnly, "Error" TxtPassword.SetFocus Else ' Password Benar MsgBox "Anda Berhasil " End If End If End Sub "save" Private Sub CmdOk_Click() Dim strsql As String, EncrypPassword As String Dim x As Integer For x = 1 To Len(Trim(TxtPassword)) EncrypPassword = EncrypPassword & Chr$(Asc(Mid(TxtPassword, x, 1)) + 100) Next x strsql = " Update UserLogin Set UserPassword='" & EncrypPassword & "' " & _ " Where UserId='" & Trim(TxtUser) & "' " DbCon.Execute strsql End Sub