Only true or false choice and fills up the topic should do
Start like this for
Private Sub Form_Activate ()
Dim CNN As New ADODB. Connection
Dim RST (0 To 2) As the New ABODB. You
Dim intType As Integer
Dim no As Integer
Dim answer () As String
Dim choice () As String
Dim the done () As a Boolean
End Sub
Private Sub Form_Load ()
STRCNN="Provider=Microsoft. Jet. The OLEDB. 4.0. Data Source="& amp; App. The Path & amp; "\ Mr. Tiku. MDB; Persist Security Info=False "
CNN. Open STRCNN
For I=0 To 2
RST (I). The Open "Selet * from 1 where Type=" & amp; I + 1, CNN, adOpenStatic
Next
Private Sub start ()