Ошибка при подключении к БД ошибка "Неправельный синтаксис"

Imports System.Data.SqlClient
Public Class Form2
    Dim con As New SqlConnection
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            con.ConnectionString = "Data Source=BARON-PC;Initial Catalog = Users; Integrated Security = True"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = Nothing Then
                MsgBox("Ты должен ввести имя пользователя!!", MsgBoxStyle.Exclamation, "Error!!")
            End If
            If TextBox2.Text = Nothing Then
                MsgBox("Ты должен ввести пароль!!", MsgBoxStyle.Exclamation, "Error!!")
            End If
            Dim Str As String = "Select username,password From us Where username=" & TextBox1.Text & "and password=" & TextBox2.Text
            Dim Da As New SqlDataAdapter(Str, con)
            Dim Ds As New DataSet
            Da.Fill(Ds)
            If Ds.Tables(0).Rows.Count > 0 Then
                Me.Hide()
                Form1.Show()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
    End Sub
End Class