Private Sub BtnFetchRds_Click(sender As Object, e As EventArgs) Handles BtnFetchRds.Click Rs = New ADODB.Recordset Rs.Open("select * from Employee") If Not Rs.EOF Then LstView.Items.Add(Rs) Else MsgBox("No Record Found in Data Base", MsgBoxStyle.Critical, strprojectname) End If Rs.Close() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)