Insert data in SqlServer through disconnected architecture in vb.net

*These two namespaces are must be required for SqlServer Connectivity in your form:-

Imports System.Data

Imports System.Data.SqlClient

Insert Data

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click

        Dim strCon As String

        strCon = "Data Source=PRADEEP-HP;Initial Catalog=Sample;Integrated Security=True"

        Dim Sqlcon As New SqlConnection

        Sqlcon = New SqlConnection(strCon)

        Dim Query As String

        Query = "Insert into Employee(EmpName,DOB,EmpPhoneNo) values('" + TextBoxName.Text + "','" + DateTimePicker1.Value.ToString() + "'," + TextBoxPHNo.Text + ")"

        Dim Da As SqlDataAdapter

        Da = New SqlDataAdapter(Query, Sqlcon)

        Dim dt As New DataTable

        dt = New DataTable()

        Da.Fill(dt)

        Sqlcon.Open()

        If (dt.Rows.Count > 0) Then

            MessageBox.Show("Insert Record Successfully")

            'lblMsg.Text = "Insert Record Successfully"

        Else
            MessageBox.Show("Record are not inserted")

            'lblMsg.Text = "Record are not inserted"

        End If

    End Sub

Refresh TextBox

Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click

        TextBoxName.Text = ""

        TextBoxPHNo.Text = ""

        lblMsg.Text = ""

        DateTimePicker1.Text = ""

    End Sub

https://www.youtube.com/channel/UCKLRUr6U5OFeu7FLOpQ-FSw/videos