Imports System.Data.SqlClient

Public Class Form1
Dim CONN As New SqlClient.SqlConnection
Dim CMD As New SqlCommand
Dim AD As New SqlDataAdapter
Dim DS As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CONN.ConnectionString = (“DATA SOURCE=.\SQLEXPRESS; ATTACHDBFILENAME=|DATADIRECTORY|\DATABASE1.MDF;INTEGRATED SECURITY = TRUE; USER INSTANCE=TRUE”)
CMD.Connection = CONN
CMD.CommandText = ” INSERT INTO DETAIL (NAME,LASTNAME,AGE) VALUES(‘” & TextBox1.Text & “‘,’” & TextBox2.Text & “‘,’” & TextBox3.Text & “‘)”
CONN.Open()
CMD.ExecuteNonQuery()
CONN.Close()

End Sub

End Class