Access İle Forma Şifreli Giriş NASIL Yapabilirim?

Private Sub Form_Load()
If InputBox("Lütfen Şifrenizi Giriniz.") <> "legolas" Then
'Şifre Yanlışsa Kapat
MsgBox ("Yanlış Şifre Girdiniz! Program Kapatılıyor.")
End
'Şifre Yanlışsa Kapat
End If
End Sub
şu kaosekibi var ya ben onu accessten çekmek istiyorum bu sayede istediğim zaman programın şifresini değiştirebilim. ama nasıl yaparım bilmiyorum il accessten okuyup labele gösterirsem yapabilirim ama bulamadım
kodlar vb6 dır c++ yardım eden çıkmasın

Bir ayar tablosu oluştur içine şifreni yaz sonra program girişinde üye giriş paneli oluştur acces'den o şifeyi çek girilen şifreyle karşılaştır doğruysa diğer forma gönder yanlışla kapat

ADO ile Access'e bağlanabilirsin bi' araştır makaleleri şimdi anlatmaya kalksam çıkamayız işin içinden

Dim cnn As New ADODB.Connection
Dim tablo As New ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo hata
With tablo
tablo.Open "Select * from giris where k_adi='" & Text1.Text & "' and sifre='" & Text2.Text & "'", cnn, adOpenDynamic, adLockOptimistic
If tablo.EOF Then
MsgBox "Kullanıcıadı veya Parola yanlış Program Kapatılacak Lütfen Tekrar Deneyin", 0 + vbCritical, "Uyarı"
cnn.Close
Unload Me
Else
cnn.Close
Unload Me
End If
End With
hata:
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "musteri.mdb"
cnn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cnn.CursorLocation = adUseClient
cnn.Open

frezeteşekürler rp sistemi aktif olsa repi almıştın benden ama ben daha kısa bir yol buldum inetile txtden çekiyorum isteyen olursa yazarım..