Labels:bulletin board | monitor | web site OCR: Private Sub lstTab les Selected IndexChanged (BvVal sender As Dim sFie ldInfo sDataTvpe Str inc Dim sTab leName String Dir Integer sTab eName lstTab les Items lstTables Se lectedIndex) Dim electCMD OleDhCommand New OleDbComa nd "SELECT FROM P sTabl eName dbConnection) Bind the Date Adapter the se lected Table dhAdapter SelectCommand se lectCMD Dim dbDat aSet Dat aSet New DataSet() lear and fil the new DataSet with the records from the se lected Table dbDataSet Clear dbAdapter Fill (cbDataSet sTab leName End Sub End Class ByVal sDataType Index OleDhCormand dhDataSet
