.NET (Core and Framework)

var cmd =
                        new SqlCommand("SELECT * FROM TableOne;SELECT * FROM TableTwo", con);
                    myDataAdapter= new SqlDataAdapter(cmd);
                     
                    myDataAdapter.Fill(ds);

Dim con As New OleDb.OleDbConnection
    Dim da As New OleDb.OleDbDataAdapter
    Dim ds As New DataSet
    Dim dt As New DataTable
    Dim sSQL As String
    Dim maxRows As Integer
    Dim inc As Integer

Private Sub setRecords()
        Try
            'set the specific records 
            txtProduct_ID.Text = dt.Rows(inc).Item("productID")
            txtProductName.Text = dt.Rows(inc).Item("productName")
            txtProductDescription.Text = dt.Rows(inc).Item("productDescription")
            txtProductCategory.Text = dt.Rows(inc).Item("productCategory")
            txtProductStatus.Text = dt.Rows(inc).Item("productStatus")
            txtProductPrice.Text = dt.Rows(inc).Item("productPrice")
            txtProductQuantity.Text = dt.Rows(inc).Item("productQuantity")
            datePicker.Text = dt.Rows(inc).Item("productDateAdded")
            'disable editing when form in load
            txtProduct_ID.Enabled = False
            txtProductName.Enabled = False
            txtProductDescription.Enabled = False
            txtProductCategory.Enabled = False
            txtProductStatus.Enabled = False
            txtProductPrice.Enabled = False
            txtProductQuantity.Enabled = False
            datePicker.Enabled = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

con.Close()

        Try
            con.Open()
            Try
                'add a new row 
                Dim Rows As DataRow
                Rows = dt.NewRow
                Rows.Item("productID") = Val(txtProduct_ID.Text)
                Rows.Item("productName") = txtProductName.Text
                Rows.Item("productCategory") = txtProductCategory.Text
                Rows.Item("productDescription") = txtProductDescription.Text
                Rows.Item("productStatus") = txtProductStatus.Text
                Rows.Item("productPrice") = Val(txtProductPrice.Text)
                Rows.Item("productQuantity") = Val(txtProductQuantity.Text)
                Rows.Item("productDateAdded") = datePicker.Text
                dt.Rows.Add(Rows)
            Catch ex As OleDb.OleDbException
                MsgBox(ex.ToString)
            End Try

            'save changes made to the database
            sSQL = "SELECT * FROM productTable"
            da = New OleDb.OleDbDataAdapter(sSQL, con)
            Dim cb As New OleDb.OleDbCommandBuilder(da)
            da.Update(dt)
            'move to last records of the database
            inc = -1
            If inc <> maxRows - 1 Then
                inc = maxRows - 1
                setRecords()
            End If
            con.Close()
            MsgBox("Records Succesfully Saved")
        Catch ex As OleDb.OleDbException
            MsgBox(ex.ToString)
        End Try
    End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim a As MsgBoxResult
        a = MsgBox("Are you sure you want to delete this Record ?", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "Deleting Records")
        If a = MsgBoxResult.Yes Then
            Try
                Dim cb As New OleDb.OleDbCommandBuilder(da)

                dt.Rows(inc).Delete()
                maxRows = maxRows - 1

                inc = 0
                setRecords()
                da.Update(dt)
                MsgBox("Records Successfully Deleted")
                setRecords()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        Else
            MsgBox("Deleting Records have been canceled!")
        End If
    End Sub

Public Class data
    Private myUtil As Util = New Util()
    Private strSQL As String = ""
    Public Sub savedata()
        'Label1.Text = "DFDF"
        ' Dim d As data
        TextBox1.Text = "DFDF"
        Try
            strSQL = "Insert into tbldata(pid,pname,pdesc) values(2, 'abc', 'description1')"
            If (myUtil.ExecuteDBCommand(strSQL) = 1) Then
                'MsgBox("Account(s) Assigned Sucessfully!")
            Else
                MessageBox.Show("Could not Save Record!", "Account Information!", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t1 As Threading.Thread = New Threading.Thread(AddressOf savedata)
        t1.Start()
       

    End Sub
End Class