Insert record in sqlserver through the vb.net window based application with the disconnected architecture

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

1. Imports System.Data

2. Imports System.Data.SqlClient

Insert Button

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)

        'Dim sqlcom As New SqlCommand

        'sqlcom = New SqlCommand(Query, Sqlcon)

        Sqlcon.Open()

        'Dim insert As Integer

        'insert = sqlcom.ExecuteNonQuery()

        If (dt.Rows.Count > 0) Then

            MessageBox.Show("Insert Record Successfully")

            'lblMsg.Text = "Insert Record Successfully"

        Else

            'lblMsg.Text = "Record are not inserted"

        End If

    End Sub

Refresh Button

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