비주얼베이직 프로젝트 퀴즈게임!!

비주얼베이직 프로젝트 퀴즈게임입니다.
쉬운소스들로 구성되있으며 알아보기 쉽게 주석까지 다 처리했습니다.
DB로 연동되어 회원가입부터 아이디찾기 비밀번호찾기 문제불러오기 타이머까지..
다른학껓 졸업작품에 비해 월등하다고 생각하고 또한 간단하고 보기 쉽게
만들어져 있어 전혀 의심받을일이 없고 디자인까지 해두었습니다.
이 과제로 인해 과목 A+받은건 당연지사였고, 참고문헌으로도 5천원이면
전혀 부담없다고 생각됩니다.
- 목 차 -
DB연동
1. 메인페이짿�
1) 회원가입
2) 아이디찾기
3) 비밀번호찾기
2. 로그인 (DB 정보불러왿�서 게임 로그인)
3. OX 퀴즈, 객관식퀴즈, 주관식퀴즈, 종합퀴즈
4. 테스트문제(발표시 보여주기식으로 직접 DB에 문제넣으면 됩니다)
5. 랭킹보기(점수누적된걸 DB에서 불러왿� 오름차순정렬로 인해 랭킹이 표시됩니다)

▣ 메인 페이짿� 소스입니다 ▣

Option Explicit
'연결 개체 생성
Private conn As New ADODB.Connection
'레코드셋 개체 생성
Private rs As New ADODB.Recordset
'로그인한 ID를 다른폼에 넘겨주기 위한 변수
Private str입력Id As String

'로그인한 ID를 다른폼에 넘겨주기 위한 프로시저
Public Sub ID(strId As String)
strId = str입력Id
End Sub

'로그인을 가능하게 하는 코딩을 담고있는 프로시저
'Login을 클릭했을때,
'ID입력 텍스트박스나 PW입력 텍스트박스에서 엔터를 쳤을때 Call 함
Private Sub Call_Login()
If Trim(txtId.Text) = "" Then
MsgBox "아이디를 입력하세요."
Exit Sub
ElseIf Trim(txtPw.Text) = "" Then
MsgBox "비밀번호를 입력하세요."
Exit Sub
End If

rs.Open "select * from member", conn, adOpenStatic

Dim i As Integer
Dim blnCheck As Boolean

For i = 1 To rs.RecordCount
If txtId.Text = rs!ID Then
rs.Close
rs.Open "select * from member where ID = '" & txtId.Text & "'", conn, adOpenStatic

If txtPw = rs!Password Then

str입력Id = rs!ID
.
.
.