October 3, 2021 at 11:09 am
#98585
ghostriderofthenite
Member
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”
CN.Open
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
RS.MoveFirst
Text1.Text = RS.Fields(“Topic”)
Text2.Text = RS.Fields(“Question”)
Text3.Text = RS.Fields(“Answer”)
End If
End Sub