Dim i As Integer Dim C As Integer Dim Rsw As DAO.Recordset Dim rs As DAO.Recordset gTkeyCnt = 0 gTWrdCnt = 0 On Error GoTo er Set db = OpenDatabase("", True, False, gsConnDAO) Set rs = db.OpenRecordSet("Select * from TestKey") Set Rsw = db.OpenRecordSet(" Select * from NumbersToWords") If Not rs.Eof() Then rs.MoveLast gTkeyCnt = rs.RecordCount rs.MoveFirst End If
Microsoft DAO 3.51 Object Liprary
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)