المساعدة في ربط البرنامج بقاعدة بيانات علي الجهاز

عند اللوجن يظهر رسالة خطيء 

Public Class FRMLogin
    Private Sub BTNLogin_Click(sender As Object, e As EventArgs) Handles BTNLogin.Click
        Dim Username As String
        Dim Password As String

        Username = UsernameTextBox.Text
        Password = PasswordTextBox.Text
        If UsernameTextBox.Text.Length <= 0 Then
            MessageBox.Show("Please enter Username!")
        ElseIf PasswordTextBox.Text.Length <= 0 Then
            MessageBox.Show("Please enter Password!")
        End If
        Dim str As String = "Data Source=.\sqlexpress;Initial Catalog=DataSys;User Id= DESKTOP-HTKEVIH\abdelkader ; pwd=; "
        Dim sql As String = "select count(*) from TBLLogin where UserName=@Username and Passowrd=@Password"
        Using Conn As New SqlConnection(str)
            Using cmd As New SqlClient.SqlCommand(sql, Conn)
                Conn.Open()
                cmd.Parameters.AddWithValue("@Username", UsernameTextBox.Text)
                cmd.Parameters.AddWithValue("@Password", PasswordTextBox.Text)
                Dim value = cmd.ExecuteScalar()
                If value > 0 Then

                    Hide()
                    FRMAddEm.Show()
                End If

            End Using

        End Using
    End Sub
End Class

قاعدة البيانات ملف لكي ارسل البرنامج للعميل