ocr: Pa Project1 - Microsoft Visual Basic (design] - [Form1 (Code)] EEX Eile Edit View: Project Format Debug Run Query Diagram Tools Add-Ins Window Help E Ix X Form Load Prorect Projecti X General Option Explicit a A Dim xData As DataAccessDLL.clsData E E Projecti (Project1) M - L Forms abl Private Sub Form_Load() D Form1 (Form1) o Set xData = New DataAccessDLL.clsData EE dE Dim strsQL As String FIRST, LET'S USE JET F strsQL == "select * from SampleTable" LI With xData xDatabaseName = C:iDatabasesiExample.mdb" xCommandType = adCmdText xCommandText == strsQL LP xCursorType == adupenstatic xCursorLoc ...
