run time error -2147467259(80004005)-

[hstiwari]

I am trying to run the following code :-----

Public Function Fill() As Variant
Dim reccheck As ADODB.Recordset
Dim fldcheck As ADODB.Field
Set reccheck = New ADODB.Recordset
Set reccheck.ActiveConnection = CurrentProject.Connection
Dim str As String
str = Format(curdate.Value, "dd/mmm/yy")
reccheck.Source = "work_details"
 reccheck.Open "select tslot2 from work_details where emp_id=" & Text13.Value & " and current_date = " & str & "; "
reccheck.MoveFirst

I am getting the following erroe:----run time error -2147467259(80004005)-Method 'Open' of object _recordset failed

Can any body help me????

[puppydogbuddy]

I am trying to run the following code :-----

Public Function Fill() As Variant
Dim reccheck As ADODB.Recordset
Dim fldcheck As ADODB.Field
Set reccheck = New ADODB.Recordset
Set reccheck.ActiveConnection = CurrentProject.Connection
Dim str As String
str = Format(curdate.Value, "dd/mmm/yy")
reccheck.Source = "work_details"
reccheck.Open "select tslot2 from work_details where emp_id=" & Text13.Value & " and current_date = " & str & "; "
reccheck.MoveFirst

I am getting the following erroe:----run time error -2147467259(80004005)-Method 'Open' of object _recordset failed

Can any body help me????

See if this syntax works. This syntax is based on the ADO example at this link: http://allenbrowne.com/func-ADO.html

Public Function Fill() As Variant
 
'Declarations
Dim reccheck As ADODB.Recordset
Dim fldcheck As ADODB.Field
 
'Obtain a criterion for WHERE clause, and
'construct Select statement
 
Dim str As String
str = Format(curdate.Value, "dd/mmm/yy")
str = "select tslot2 from work_details where emp_id=" & Text13.Value & " and current_date = " & str & "; "
 
'open the recordset
Set reccheck = New ADODB.Recordset
reccheck.Open str, CurrentProject.Connection
 
'Loop through recordset until EOF
Do While Not reccheck.EOF
    Debug.Print reccheck!tslot2 & ";" & reccheck!emp_id & ";" & reccheck(str) 
    reccheck.MoveNext
Loop
 
'Clean up objects and links
reccheck.Close
Set reccheck = Nothing