فرم لاگین و یوزر پس از اکسس

[arfaghani]

سلام
فرم ورودی در اکسل درست کردم با زدن دکمه ورود این کد هارو نوشتم
در صورت خالی بودن ارور میده
در صورت درست بودن وارد میشه
ولی در صورت اشتباه بودن اطلاعات مشکل داره و یوزر پس هارو از یک شیت دیگه ای میخونه
می خوام اگه میشه یه دیتا بیس اکسس درست کنم براش و اطلاعات یوزر پس رو از اونجا بخونه




Private Sub CommandButton1_Click()
Dim PassWord As String
Dim user As String

user = xluser.Value
PassWord = xlpass.Value

If user = "" Or PassWord = "" Then
MsgBox "Emply user & pass"
Exit Sub
End If

If PassWord = WorksheetFunction.VLookup(user, Range("List"), 2, 0) Then
wel_form.Hide
Sheets("welcome").Visible = True
Sheets("Login").Visible = False
Sheets("welcome").Select
Sheets("welcome").Range("E1").Value = user
Range("A1").Select
ActiveCell.FormulaR1C1 = " "
Range("A1").Select

End If

End Sub