Object Variable or with block not set

[gilsygirl]

Hi Guys

Thanks for the replies. I started a thread but my network was down and I can't find my thread. Am using VB6.0 and developing a result checker.

I want to search records from an Access database using four fields from the database.

This is the code I have but I have this error
Object Variable or with block not set and the line of code is this objobjRs.open Sqlstmt objConn, ,2,2

sqlStmt = "select * from candres where ExamSeries='" & Exam_Sr & "' and  ExamYear= '" & Exam_Yr & "' and CentNo='" & cbosch & "' and IndexNo='" & Cand_No & "'"
objobjRS.Open sqlStmt, objConn, , 2, 2
 
If Not (objobjRS.EOF) Then
  frmCandResult.Show vbModal, Me
Else
  MsgBox "sorry not a perfect match"
End If

Where am I going wrong?

Thanks

[Killer42]

How is objobjRS declared?

[gilsygirl]

How is objobjRS declared?

objobjRs is declared as Recordset and the declaration is made in the General section of the code section.

Thanks

[QVeen72]

hI,

How you have declared it..? have you used "New" keyword..?

Dim objRS As New ADODB.RecordSet

How about objConn, is it opened..?

Regards
Veena

[gilsygirl]

hI,

How you have declared it..? have you used "New" keyword..?

Dim objRS As New ADODB.RecordSet

How about objConn, is it opened..?

Regards
Veena

Thanks QVeen

I have declared everything and this how I did it.

Dim objConn As ADODB.Connection
Dim objobjRS As ADODB.Recordset
' The above declaration is in the General section
 
Sub frmCand_Details()
 
Set objConn = New ADODB.Connection
Set objobjRS = New ADODB.Recordset
 
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\resultchecker.mdb")
objobjRS.ActiveConnection = objConn.DefaultDatabase
 
End Sub

This is where i call the connection code to search the database

sqlStmt = "select * from candres "
objobjRS.Open sqlStmt, objConn, , 2, 2
flg = 0
If Not (objobjRS.EOF) Then
  Do Until objobjRS.EOF
    If (objobjRS.ExamSeries = Exam_Sr And objobjRS.ExamYear = Exam_Yr And objobjRS.cbosch = Cent_No And objobjRS.IndexNo = Cand_No) Then
      flg = 1
      frmCandResult.Show vbModal, Me
    End If
    objobjRS.MoveNext
  Loop
  If (flg = 0) Then
    MsgBox "sorry no records matched your requirements"
  End If

Pls help because I can't just figure out the problem.

Thanks a lot.