Reply To: ghostriderofthenite Ultimate Bot project


arrggggggggg error in code not sure what – adding form and databse to allow add questions in trivia

Private Sub Form_Load()
CN.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\GrimReaper\Desktop\NewBot Project files\Complete 80 Languages New MDB files 22 may 14\Trivia_Blank.mdb;Persist Security Info=False”
STR = “SELECT = FROM Trivia_Blank”
If RS.State = adStateOpen Then RS.Close
RS.CursorLocation = adUseClient
RS.Open STR, CN, adOpenDynamic, adLockOptimistic
If RS.RecordCount > 0 Then
Text1.Text = RS.Fields(“Topic”)
Text2.Text = RS.Fields(“Question”)
Text3.Text = RS.Fields(“Answer”)
End If
End Sub