Как правильно авторизоваться в БД SQL

  Dim conn1 As New SqlClient.SqlConnection("Server = Aw-ПК;Initial Catalog=Potrebit;Integrated Security=True")
        conn1.Open()
        Dim str As String = "SELECT login, parol FROM Polzovateli WHERE login='" & TextBox1.Text & "' AND parol='" & TextBox2.Text & "'"
        If TextBox1.Text = "login" Then
            Form1.Show()
 
 
        End If

Dim connection As New SqlConnection("Data Source=[IP адрес сервера]; Initial Catalog=[База SQL]; Persist Security Info=false;User ID=[Логин]; Password=[Пароль];")

Imports System.Data.SqlClient
Imports System.Data
Imports System.Text
 
Public Class AuthorizationForm
    Private AuthResult As Boolean
    Dim AppFrm As New AppMainForm
 
Private Sub OKBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKBtn.Click 'События кнопки ОК
        UserAuth() 'Вызов функции для проверки авторизации пользователя
        If AuthResult = True Then 'Если функия вернула положительный результат, тогда проходим дальше
            AppFrm.Show()
            Me.Close()
        Else 'В противном случае окно с сообщением, что наш логин или пароль не верны
            MsgBox("Неверный пароль.", MsgBoxStyle.Critical, "Ошибка авторизации")
            PassAuth.Text = "" 'Очищаем строку ввода пароля
        End If
    End Sub
 
 
Private Function UserAuth() 'Функция проверки авторизации пользователя
        Dim UsName As String, UsPass As String, I As Integer
        UsName = CStr(UserCombo.SelectedItem)
        UsPass = PassAuth.Text
        Dim query As New StringBuilder
        If PassAuth.Text = "" Then
            query.Append("select count (*) from aux_users where NAME='").Append(UsName).Append("' and PASS is NULL")
        Else
            query.Append("select count (*) from aux_users where NAME='").Append(UsName).Append("' and PASS=").Append(UsPass)
        End If
        Dim command As New SqlCommand(query.ToString, connection)
        I = command.ExecuteScalar
        Select Case I
            Case 0
                AuthResult = False
            Case 1
                AuthResult = True
        End Select
        Return AuthResult
    End Function
End Class