try this:
Private Sub insertData()
Try
Dim con As SqlConnection = Nothing
Dim cmd As SqlCommand = Nothing
con = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("inline").ConnectionString)
con.Open()
cmd = New SqlCommand("insert into table_name(column_Name) values ('" + TextBox1.Text + "," + TextBox2.Text + "')", con)
cmd.ExecuteNonQuery()
con.Close()
lblMsg.Text = "Saved Successfully"
Catch ex As Exception
lblMsg.Text = ex.Message
End Try
End Sub