[met0555]

hi, my problem is while i try my prgram by debuging it's working correctly but when i try it after compiling it, it show me an error, vb6 ms database 2000, . the is no error on the project only the error occur after compiling and runing the program

this is my code where the error will occur


visual basic code:--------------------------------------------------------------------------------Private Sub cmdCode_Click()

Dim RS As ADODB.RecordSet, i As Integer

'The first part of this event procedure will open the frmSelectDg form
'and expect an input from the user. This will ease the selection part
'from the users point-of-view and validation part from the devolopers
'point-of-view.

On Error Resume Next
With frmSelectDg
'First show the box
.CommandText = "SELECT tblTrans.[Book ID], tblTrans.[Employee ID], tblBooks.Title, [First Name] & ' ' & [Middle Initial] & ' ' & [Last Name] AS Borrower, tblTrans.[Date Borrowed] FROM tblMembers INNER JOIN (tblBooks INNER JOIN tblTrans ON tblBooks.[Book ID] = tblTrans.[Book ID]) ON tblMembers.[Employee ID] = tblTrans.[Employee ID] Where (((tblTrans.Returned) = False)) ORDER BY tblTrans.[Book ID];"
.DataGrid1.Caption = "Books Table"
.Show vbModal

'Now display the data
If .OKPressed Then
Text4.Text = .rRS1
Text1.Text = .rRS2
txtFines.Locked = False
Else
'If the user did not enter anything then skip the second
'part of the procedure to skip errors that may arise because
'there will be no data (in text4 and text1) and as such
'null errors or record not found errors.
Exit Sub
End If
End With

'The second part will calculate the number of days a book was taken out
'of the library and print it in the txtFines text box.

Set RS = New ADODB.RecordSet
RS.Open "Select * from tblTrans Where [Book ID] ='" & Text4.Text & "'", CN, adOpenDynamic, adLockOptimistic
lblDate.Caption = CDate(RS(2)) 'Just for validation

'Store the difference of the current date and the date returned
'in a variable. It the variable is negative it means that the
'book returned is within the time limit and Fines=i*FineAmnt
'must be 0. So transform i into 0
i = Date - CDate(lblDate.Caption)
If i < 0 Then i = 0
If MaxDays < i Then lblLate.Caption = i - MaxDays Else lblLate.Caption = "0"

'Print fines due in a label and a text box
lblFines.Caption = CStr(FormatCurrency$(FineAmnt * lblLate))

'Also, use an editable text box so the correct amount a member
'is payed is recorded. Sometimes the member may pay money not
'exactly as required (payable $15 from $15.25 total fines)
txtFines.Text = lblFines.Caption
Set RS = Nothing

'So, practically all the librarian did was just select a book id through
'a GUI friendly interface and everything will be done by the system

End Sub--------------------------------------------------------------------------------

and this is the error that i got after compiling and testing the program:

run-time error '2147217904 (80040e10)
No value given for one or more required parameters.

u can see the full project at http://met0555.ifastnet.com/MCE%20Library%20Management%20System.zip
can u tell me what i should change on my code tanks.