dear friends,
i have coding problem in da following codes which is used for saving particular record of an employee messege comes, is and please also chek the coding for saving flexgrid data

size=2]object variable or with block variable not set[/size=2]

Private Sub SaveRecord()
Dim tb1 As ADODB.Recordset
Dim tb2 As ADODB.Recordset
With tb1
    .Open "Select * From emp_personal ", db
If (.BOF And .EOF) Then
.AddNew
    tb("SrNo") = txtsrno.Text
    tb("Employee_Name") = txtename.Text
    tb("Father_Name") = txtfname.Text
    tb("N_I_C_No") = masknic.Text
    tb("Designation") = txtdesig.Text
    tb("brname") = cmbbrname.Text
    tb("dob") = dtpdob.Value
    tb("religion") = txtreligion.Text
    tb("idmark") = txtmark.Text
    tb("paddress") = txtaddress.Text
    tb("photo") = txtphoto.Text
    tb("appletter") = txtapletter.Text
    tb("appdate") = dtpltrdate.Value
    tb("pensiondate") = lblpension.Caption
    tb("disdate") = dtpdisp.Value
    tb("disdetail") = txtdetail.Text
    tb("disresult") = txtresult.Text
.Update

 tb2.Open "Select * From transfer", db
    For i = 1 To grid.Rows - 1

        .AddNew
      !station = grid.TextMatrix(i, 1)
      !fromdate = grid.TextMatrix(i, 2)
      !todate = grid.TextMatrix(i, 3)
      !duration = grid.TextMatrix(i, 4)

        .Update

    Next i
.Close
MsgBox "Record Successfully Entered", vbInformation, "CB DIK"
End If

End With

End Sub

hi there...

tb1 and tb2 are dimensioned but never initialized. somewhere, before you start using it, you have to make a something like
set tb1 = new ADODB.Recordset

if you don't do that, compiler know the type of the variable, but you never really store something in it...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

dear gibianchi, thnq v.much it really works nice rite after ur correction, thnq again,