کد تغییر یوزر و پسورد

[fshadh1]

سلام دوستان خسته نباشید . ببخشید من یه فرم لاگین ططراحی کردیم بعد کاربر با وارد کردم یوزر و پسورد وارد برنامه میشه بعدوارد شد اجازه تغیر نام وپسوردشو داره من از این کد برای اینکار استفاده کردم میدونم این کد زیاد خوب نیست برای اینکار شما چه کدی پیشنهاد میکنید اگه فایل ضمیمه بذارین خیلی بهتره
Private Sub Bsabtuser_Click()
If (tuserold.Text = "") Or (tusernew.Text = "") Then
MsgBox "ÇØáÇÚÇÊ ÎæÇÓÊå ÔÏå ÑÇ Ê˜ãíá äãÇííÏ"
Else
If Combo1.Text = "äÇã ˜ÇÑÈÑí" Then
Adok.CommandType = 8
Adok.RecordSource = "select * from login where user like '%" + tuserold.Text + "%'"
Adok.Refresh
Adok.Recordset.Fields("user") = tusernew.Text
tusernew.DataField = "user"
Combo1.Text = ""
tuserold = ""
tusernew = ""
MsgBox "äÇã ˜ÇÑÈÑí ÔãÇ ÊÛííÑ íÇÝÊ", vbInformation, "ÊÛííÑ äÇã ˜ÇÑÈÑí"
Else: MsgBox "ãÞÏÇÑ ãÔÎÕå ÑÇ ÇäÊÎÇÈ ˜äíÏ", vbCritical, "ÎØÇ"
End If
If Combo1.Text = "ÑãÒ æÑæÏ" Then
Adok.CommandType = 8
Adok.RecordSource = "select * from login where pass like '%" + tuserold.Text + "%'"
Adok.Refresh
Adok.Recordset.Fields("pass") = tusernew.Text
tusernew.DataField = "pass"
Combo1.Text = ""
tuserold = ""
tusernew = ""
MsgBox "ÑãÒ æÑæÏ ÔãÇ ÊÛííÑíÇÝÊ", vbInformation, "ÊÛííÑ ÑãÒ æÑæÏ"
MsgBox "ãÞÏÇÑ ãÔÎÕå ÑÇ ÇäÊÎÇÈ ˜äíÏ", vbCritical, "ÎØÇ"
End If
End If

End Sub