Login Button

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim intKiemTra As Integer = _kiemtra("select count(*) from tbl_user where tendangnhap= & txtTenDangNhap.Text &  and matkhau= & md5(txtMatKhau.Text) & ")
        If intKiemTra = 1 Then
            MessageBox.Show("Đăng nhập thành công!")
        Else
            MessageBox.Show("Đăng nhập không thành công!")
        End If
End Sub