Cara Membuat login pakai SQL dengan Visual Basic

Untuk membuat login pada visual basic dgn perintah SQL caranya cukup mudah. Copypaste listing di bawah ini:
Dim cekdata As New ADODB.Recordset
If cekdata.State = adStateOpen Then cekdata.Close
cekdata.Open "select * from security where nmuser= '" & trim(txtuser.Text) & "' and pwd= '" & trim(txtpwd.Text) & "' ", mydata, adOpenDynamic, adLockOptimistic
If cekdata.EOF = False Or cekdata.BOF = False Then
mdiform.show
else
MsgBox "User atau Password yang anda masukkan salah!", vbInformation + vbOKOnly, "Error"
end if

selamat mencoba!!!
Note:mydata adalah nama koneksi yg sy gunakan.