How to Reslove Error?

dongodu

Option Explicit Dim DB As ADODB.connection Dim strString As String Dim rs As ADODB.recordset Dim cs As ADODB.connection Dim ks As ADODB.recordset Private Const CB_SHOWDROPDOWN As Long = &H14F Private Const CB_GETDROPPEDSTATE As Long = &H157 Private Drop As Boolean Private Const CB_FINDSTRING = &H14C Private Const CB_SELECTSTRING = &H14D Private Const CB_LIMITTEXT = &H141 Private Const CB_ERR = (-1) Private Sub db_conn() Set DB = New ADODB.connection DB.CursorLocation = adUseClient DB.Open "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Medrar.mdb;" End Sub Private Sub cmdAcchu_Click() Dim obj, rs As ADODB.recordset, SQL As String Set rs = New ADODB.recordset Set rs = New ADODB.recordset strString = " SELECT cusname,idnumb,mobi,pron,proc,blkno,lannum,sqland,cost,comiso,addit,deduc,gtot,vali,rename" & _ " From reser" & _ " WHERE reno = '" & Combo1.Text & "' " rs.Open strString, DB, adOpenStatic ' Set rs = db.Execute(strString) 'With reportPS If Not rs.EOF Then Set Reservation.DataSource = rs.DataSource '-----------------------------------------------------------------------------------------------' 'PageHeader Reservation.Sections("PageHeader").Controls("lblcusname").Caption = CStr(rs!cusname) Reservation.Sections("PageHeader").Controls("lblidnumber").Caption = CStr(rs!idnumb) Reservation.Sections("PageHeader").Controls("lblmobile").Caption = CStr(rs!mobi) Reservation.Sections("PageHeader").Controls("lblPron").Caption = CStr(rs!pron) Reservation.Sections("PageHeader").Controls("lblProc").Caption = CStr(rs!proc) Reservation.Sections("PageHeader").Controls("lblBlkno").Caption = CStr(rs!blkno) Reservation.Sections("PageHeader").Controls("lblLn").Caption = CStr(rs!lannum) Reservation.Sections("PageHeader").Controls("lblsql").Caption = CStr(rs!sqland) Reservation.Sections("PageHeader").Controls("lblcost").Caption = CStr(rs!cost) Reservation.Sections("PageHeader").Controls("lbCommi").Caption = CStr(rs!comiso) Reservation.Sections("PageHeader").Controls("lblAdd").Caption = CStr(rs!Addit) Reservation.Sections("PageHeader").Controls("lblDed").Caption = CStr(rs!deduc) Reservation.Sections("PageHeader").Controls("lblGt").Caption = CStr(rs!Gtot) Reservation.Sections("PageHeader").Controls("lblVali").Caption = CStr(rs!vali) Reservation.Sections("PageHeader").Controls("lblrname").Capti

Luc Pattyn

please read my sig. :|

Luc Pattyn [My Articles] Nil Volentibus Arduum

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Please use <PRE> tags for code snippets, they improve readability.
CP Vanity has been updated to V2.3

_Erik_

Maybe this[^] will help you... or even us.

Lost User

First, you'll have to find out what's causing the error; Knowledge Base[^] Next, you fix it :)

Bastard Programmer from Hell :suss:

Luc Pattyn

Are there no bounds to your wisdom at all? :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Please use <PRE> tags for code snippets, they improve readability.
CP Vanity has been updated to V2.3

Dave Kreskowiak

MY GOD MAN! HOW DARE YOU SEARCH THE SACRED KNOWLEDGE BASE! Stay away from me. I don't want to get hit by the lightning that's coming for you. ;)

A guide to posting questions on CodeProject[^]
Dave Kreskowiak

Lost User

:laugh: