Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
connection = New SqlConnection(conStr)
connection.Open()
Dim fname As String = TextBox1.Text
sql = "insert into Table1(name) values ('" & fname & "')"
command = New SqlCommand(sql, connection)
command.ExecuteNonQuery()
connection.Close()
End Sub