[samsonawane]

hi everyone this is sam
when run my application through exe that generates error something like "run time error 5 Invalid procedure and call argument" could anyone tell me what is this error and when this error occurs i am sending the code below:

Private Sub txtstdid_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ElseIf txtstdid.Text = "S" Then
MsgBox "Please insert student ID"
Else
Dim sql As String
sql = "select * from student_details"
		r.Open sql, c, 3, 3
		Do While r.EOF = False
			 If Trim(r!std_id) = Trim(txtstdid.Text) Then
				 MsgBox "This ID is exist you can not add this ID"
				 mode = 1
				 Exit Do
			  End If
		 r.MoveNext
		 Loop
		 r.Close
	If mode = 0 Then
	 MsgBox "student Record does not exist if you want to add record fill all the information and click on add"
	  txtfname.SetFocus
	End If
End If
End Sub

********************************************************
i could not found the error line it generates error when i runs an exe of the project. i am sending attachment file of full code that is stderror.txt
please help me

Attached File(s)

•  stderror.txt (4.86K)
  Number of downloads: 121

This post has been edited by samsonawane: 05 November 2009 - 07:56 AM

[raziel_]

hi there

can you show us on witch row is the error

[thava]

you should declare the record set like this

Dim r As New ADODB.Recordset
Dim c As New ADODB.Connection

i think this would solve your problem