please help me..
i have 40 data to display at msflexgrid. but i cannot do that because it show too many continuations error...
Public Function show_msflex(SQL As String)
MSFlexGrid1.Rows = 1
Set rekod = New ADODB.Recordset
rekod.ActiveConnection = Con
rekod.CursorLocation = adUseClient
rekod.CursorType = adOpenDynamic
rekod.LockType = adLockOptimistic
rekod.Source = SQL
rekod.Open
If rekod.EOF Then
MsgBox "Sorry, no record in the database"
End If
While Not rekod.EOF()
MSFlexGrid1.AddItem rekod!Name & vbTab & _
rekod!Gender & vbTab & _
rekod!Race & vbTab & _
rekod!Address & vbTab & _
rekod!Address1 & vbTab & _
rekod!Ic & vbTab & _
rekod!passport & vbTab & _
rekod!DOB & vbTab & _
rekod!POB & vbTab & _
rekod!Post & vbTab & _
rekod!State & vbTab & _
rekod!Contact & vbTab & _
rekod!coursecode & vbTab & _
rekod!Citizen & vbTab & _
rekod!Class & vbTab & _
rekod!Sem & vbTab & _
rekod!Admission & vbTab & _
rekod!AdmissionDate & vbTab & _
rekod!Completion & vbTab & _
rekod!Roll & vbTab & _
rekod!Intake & vbTab & _
rekod!How & vbTab & _
rekod!Sponsor & vbTab & _
rekod!status & vbTab & _
rekod!GState
rekod.MoveNext
Wend
Set rekod = Nothing
End Function