Error loading DLL (CurrentProject.Connection)
Posted on 2004-08-06
Have searched the other solutions to this error without success. I have code which has always worked and now throws up an error loading dll. I've tried repairing Access 2003 and a complete reinstall but still no joy. I have no 'Missing references' under the tools menu of the VBE and all dll appear in the common files folder. The code I'm using is:
Private Sub Employee_NotInList(NewData As String, Response As Integer)
Dim strMessage As String
Dim rstEmployees As New ADODB.Recordset
strMessage = "Do you want to add '" & NewData & "' to the employee list?"
If Confirm(strMessage) Then
rstEmployees.Open "tblEmployees", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'CurrentProject.Connection is where the code stops.
rstEmployees!EmployeeName = NewData
Employee = rstEmployees!Employee
Response = acDataErrAdded
Response = acDataErrDisplay
Any ideas please?