Snippet Library

none

'Example code
'gvDataPath is Global variable for Data Path
'stored/retrieved from ini file

'Open Table with code
  Dim cDBName As String   ' database name
  Dim dbName As Database  ' database object
  cDBName = gvDataPath + "test.mdb"
  Set dbName = OpenDatabase(cDBName)
        
'SQL to get Find Thing in Test Table
  Dim SelectString As String
  SelectString = "Select * from Test where [Name]= " & "'" & "Thing" & "'"
  Dim rsName As Recordset
  Set rsName = dbName.OpenRecordset(SelectString)
                
'Copy fields to variables
  Dim Name As String
  Name = rsName.Fields("Name");