Hi
I am getting "Command text was not set for the command object" error. below i me code amd error line is marked.

rownew = dset1.Tables("BHDATASOURCE").NewRow

                Dim get1 As New OleDbCommand(query1, myconnection)
                myreader = get1.ExecuteReader()

                While (myreader.Read())

                        rownew("RecordID") = myreader(0)
                        rownew("FundAgencyID") = myreader(1)
                        rownew("EngineeringID") = myreader(2)
                        rownew("GeotechCoID") = myreader(3)
                        rownew("DrillingCoID") = myreader(4)
                        rownew("ProjectNameID") = myreader(5)
                        rownew("HoleID") = myreader(6)
                        rownew("ReportNo") = myreader(7)
                        rownew("ContractNo") = myreader(8)
                        rownew("GeofileNo") = myreader(9)
                        rownew("DrillFileNo") = myreader(10)
                    rownew("BridgeNo") = myreader(11)

                    If Not rownew("FundAgencyID") Is DBNull.Value Then
                        strfa = "Select o.Name from ORGANISATIONNAME o, BOREHOLEDATASOURCE bds where o.OrgID=bds.FundAgencyID and o.OrgCatID=2 or bds.FundAgencyID=" & myreader(1)
                    Else
                        strfa = "Select FundAgencyID from BOREHOLEDATASOURCE"
                    End If

                    If Not rownew("EngineeringID") Is DBNull.Value Then
                        strec = "Select o.Name from ORGANISATIONNAME o, BOREHOLEDATASOURCE bds where o.OrgID = bds.EngineeringID and o.OrgCatID=3 and bds.EngineeringID=" & myreader(2)
                    Else
                        strec = "Select EngineeringID from BOREHOLEDATASOURCE"
                    End If
                    If Not rownew("GeotechCoID") Is DBNull.Value Then
                        strgc = "Select o.Name from ORGANISATIONNAME AS o, BOREHOLEDATASOURCE AS bds where o.OrgID = bds.GeotechCoID and o.OrgCatID=4 and bds.GeotechCoID=" & myreader(3)
                    Else
                        strgc = "Select GeotechCoID from BOREHOLEDATASOURCE"
                    End If
                    If Not rownew("DrillingCoID") Is DBNull.Value Then
                        strdc = "Select o.Name from ORGANISATIONNAME o, BOREHOLEDATASOURCE bds where o.OrgID = bds.DrillingCoID and o.OrgCatID=5 and bds.DrillingCoID=" & myreader(4)
                    Else
                        strdc = "Select DrillingCoID from BOREHOLEDATASOURCE"
                    End If
                    If Not rownew("ProjectNameID") Is DBNull.Value Then
                        strpn = "Select pu.ProjectName from PROJECTNAMELOOKUP pu, BOREHOLEDATASOURCE bds where pu.ProjectNameID = bds.ProjectNameID and bds.ProjectNameID=" & myreader(5)
                    Else
                        strpn = "Select ProjectNameID from BOREHOLEDATASOURCE"
                    End If
                End While
                myreader.Close()


                Dim comfa As New OleDbCommand(strfa, myconnection)
       Error line #### myreader1 = comfa.ExecuteReader()########
                While (myreader1.Read())
                    fname = myreader1(0) & ""
                End While
                myreader1.Close()


Please help

Thanks
nidy

I see no open connection here! did u open connection to run or not?!

Always:),
Hovik Melkomian.

Are you sure you provided a SQL query for the variable query1? Because that is what the compiler is complaining about

Regards,

Gerhard Wentink