Dim con As New SqlConnection(data)
con.Open()
Dim str As String = "insert into at_customer values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & DTP1.Text & "','" & MTB1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Dim com As New SqlCommand
com.CommandType = CommandType.Text
com.CommandText = str
com.Connection = con
com.ExecuteNonQuery()
MsgBox("เพิ่มข้อมูลเรียบร้อยแล้ว")
con.Close()
TextBox1.Clear()
TextBox2.Clear()
ComboBox1.ResetText()
DTP1.ResetText()
MTB1.ResetText()
TextBox3.Clear()
TextBox4.Clear()
sara()
End If