.NET (Core and Framework)

Dim con As OleDbConnection<br />
    Dim cmd As OleDbCommand = New OleDbCommand<br />
    Dim dataSet As dataSet = Nothing<br />
Sub BindGrid()<br />
        Dim oleDbDataAdapter As OleDbDataAdapter = Nothing<br />
        Dim ConnectionString = System.Configuration. _<br />
 ConfigurationSettings.AppSettings(ConConstant.MS_ACCESS_CONNECTION_STRING)<br />
        ' Ge the sql query<br />
        Dim SelectQueryText As String = String.Empty<br />
        SelectQueryText = "Select Leave_Code as LeaveCode,Leave_Name as LeaveName,NoOfDays as Days  from Leave_Mstr"<br />
        oleDbDataAdapter = New OleDbDataAdapter(SelectQueryText, _<br />
        New OleDbConnection(ConnectionString))<br />
        ' Create the data set<br />
        dataSet = New DataSet<br />
        ' Fill the data set with the data<br />
        oleDbDataAdapter.Fill(dataSet)<br />
        If (Not oleDbDataAdapter Is Nothing) Then<br />
            oleDbDataAdapter = Nothing<br />
        End If<br />
        With dgLeavCrtnLeavDtls<br />
            .DataSource = dataSet<br />
            .DataMember = dataSet.Tables(0).TableName<br />
            .DataBind()<br />
        End With<br />
    End Sub<br />
    Sub tablebind()<br />
        Dim oleDbDataAdapter As OleDbDataAdapter = Nothing<br />
        Dim ConnectionString = System.Configuration. _<br />
         ConfigurationSettings.AppSettings(ConConstant.MS_ACCESS_CONNECTION_STRING)<br />
        ' Ge the sql query<br />
        Dim SelectQueryText As String = String.Empty<br />
        SelectQueryText = "Select Leave_Code as LeaveCode,Leave_Name as LeaveName,NoOfDays as Days  from Leave_Mstr"<br />
        oleDbDataAdapter = New OleDbDataAdapter(SelectQueryText, _<br />
        New OleDbConnection(ConnectionString))<br />
        ' Create the data set<br />
        dataSet = New DataSet<br />
        ' Fill the data set with the data<br />
        oleDbDataAdapter.Fill(dataSet)<br />
        Dim dh As TableHeaderCell<br />
        Dim dc As DataColumn<br />
        Dim dr As DataRow<br />
        For Each dr In dataSet.Tables(0).Rows<br />
            Dim trow As New TableRow<br />
            For Each dc In dataSet.Tables(0).Columns<br />
                Dim tcell As New TableCell<br />
                tcell.Controls.Add(New LiteralControl(dr(dc.ColumnName).ToString))<br />
                trow.Cells.Add(tcell)<br />
            Next<br />
        Next<br />
    End Sub