Dim MiAdapter As New SqlClient.SqlDataAdapter("insert into Products (ProductName) VALUES ('" & TextBox1.Text & "')", SqlConnection1)
Dim MiCommandBuilder As New SqlClient.SqlCommandBuilder(MiAdapter)
Dim MiDataSet As New DataSet
MiAdapter.Fill(MiDataSet, "Products")