Dim ConString As String = "server=TERMINATOR\\Имя;User Id=Vitlo;password='пароль от винды (русскоязычный)';Persist Security Info=True;database=MyBase"
        Dim sqlCon As New System.Data.SqlClient.SqlConnection(ConString)
        Dim sqlQuery As New System.Data.SqlClient.SqlCommand("insert into 'Person'('Fio', 'Sex', 'Age') values ('Maha','M', 33)", sqlCon)
        sqlCon.Open()
        sqlQuery.ExecuteNonQuery()