[clovers25]

sorry, but im quite new in vb, i hope you can help me out.

i get an error of "object variable or with block variable not set"

Private Sub Form_Load()
Sn.Text = ""
Pw.Text = ""

End Sub
Private Sub Command1_Click()


db.Recordset.Filter = "[StudNum] LIKE %" + Sn.Text + "%"	   'error comes here

	If (Len(Sn.Text) < 8) And (IsNumeric(Sn.Text)) Then
	babala = MsgBox("Student Number Should Contain 8 Numbers.", vbInformation + vbOKOnly, "Information")
	ElseIf (Len(Sn.Text) > 8) And (IsNumeric(Sn.Text)) Then
	babala = MsgBox("Student Number Should Only Contain 8 Numbers.", vbInformation + vbOKOnly, "Information")
	ElseIf Not IsNumeric(Sn.Text) Then
	babala = MsgBox("Student Number Should Only Contain Numbers.", vbInformation + vbOKOnly, "Information")
	Else
	Unload Me
	MainPage.Show
	End If
End Sub

This post has been edited by clovers25: 18 August 2009 - 07:49 PM

[raziel_]

so on what line you got the error i think it is db.Recordset.Filter if so where do you declare it. is that ADODB.RecordSet if so you need to do one of this

Dim db As New ADODB.RecordSet

if you dont use word "New" in your declaration you must seth it later like so:

Dim db As ADODB.RercordSet 
Set db = New ADODB.RecordSet

tel mi if it works
good luck

[clovers25]

thank you NoBrain dunno why you chose that name but it really helped me.

thanks again.