رسالة Out Of Stack Area

الملف Frmchkuser.frm

استبدل

Private Sub Form_Load()
	poolconnection
	If RS.State = adStateOpen Then RS.Close
	RS.Open "users", CN, adOpenKeyset, adLockPessimistic

	If RS.RecordCount <> 0 Then
		Frmlogon.Show
		Unload Me
	End If
	Me.Height = 3495
	Me.Width = 5055
End Sub

بالكود

Private Sub Form_Load()
	poolconnection
	If RS.State = adStateOpen Then RS.Close
	RS.Open "users", CN, adOpenKeyset, adLockPessimistic

	Me.Height = 3495
	Me.Width = 5055
	If RS.RecordCount <> 0 Then
		Frmlogon.Show
		Unload Me
	End If
End Sub