Add new comment

hi guys will u help me about looping statement in my thesis. I think it has an error because the code is not functioning will you help me to debug the error?

here's my code...

Private Sub cmdenter_Click()
Call Entry

Set DataGrid1.DataSource = rs
If lblscreen(0).Caption = "" Then
MsgBox "Enter your ID Number first.", vbCritical, "System Security"
Else
If Not rs.BOF Then
rs.MoveFirst
End If
Do Until rs.EOF = True
If lblscreen(0) <> rs!stud_id Then
Exit Do
Else
With studinfo2
.Show
.lblIDno = rs!stud_id
.lblname = rs!full_name
.lblage = rs!age
.Label6(0) = rs!gender
.Label7 = rs!address
.Label8 = rs!year_level
.Label9 = rs!course
.Label10 = rs!c_major
End With
Unload Me
Exit Do
End If
Loop
End If
End Sub

Public Sub Entry()
Set rs = New ADODB.Recordset
rs.Open "Select * from sa03_user_01 where stud_id like '" & LogMeIn.lblscreen(0).Caption & "'", cn, adOpenKeyset, adLockPessimistic
End Sub

Public Sub myCon()
Dim mDataSource As String

mDataSource = "database/kiosk.mdb"
Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cn.CommandTimeout = 0
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDataSource & ";Persist Security Info=False"

Set rs = New ADODB.Recordset
End Sub

help me please..tnx,,godbless