Dim connection1 As New SqlConnection
        connection1 .ConnectionString = "data source=server1;initial catalog=base1;integrated security=true"
        connection1.Open()

        Dim command1 As New SqlClient.SqlCommand("insert into dbo.table1 values('aaa')", connection1)
        command1.ExecuteNonQuery()

        connection1.Close()