Untuk pertanyaan seperti ini lebih bagus dikirimkan ke milis, agar banyak rekan yang bisa membantu.
Kalau dari yang saya lihat, script nya sdh benar.
Apakah user yg dimasukkan ada passwordnya di database?
Untuk tracing, tandain / bookmark pada perintah
If rs!UserPass <> Me.txtPass Then
Me.lblCorrectPass.Visible = True
Me.txtPass.SetFocus
Exit Sub
End If
Lalu pada Immediate window cek isi rs!UserPass dan me.txtPass
Kalau kosong berarti Null.
Ingat, setiap operasi yg melibatkan nilai Null hasilnya Null, termasuk operasi perbandingan.
Jika problemnya karena nilai Null, mungkin solusnya hanya perlu mengubah perintah menjadi:
If Nz(rs!UserPass,"") <> Nz(Me.txtPass,"") Then
Good luck!