Solved it
VB Code:
  1. Private Sub Form_Current()

  2. Dim rsSplitting As ADODB.Recordset

  3. Set rsSplitting = New ADODB.Recordset

  4. Dim strTest As String

  5. Dim strTest2 As String

  6. Dim strTest3 As String

  7. ID.SetFocus

  8. strTest = "Select Course" & lstSplit.Value & " from Splits where ID = " & "'" & ID.Text & "'"

  9. strTest2 = "Select SD" & lstSplit.Value & " from Splits where ID = " & "'" & ID.Text & "'"

  10. strTest3 = "Select ED" & lstSplit.Value & " from Splits where ID = " & "'" & ID.Text & "'"

  11. rsSplitting.Open strTest, con, adOpenKeyset, adLockPessimistic, adCmdText

  12.     txtCourse.SetFocus

  13.     txtCourse.Text = rsSplitting.Fields("Course" & test)

  14. rsSplitting.Close

  15. rsSplitting.Open strTest2, con, adOpenKeyset, adLockPessimistic, adCmdText

  16.     txtStartDate.SetFocus

  17.     txtStartDate.Text = rsSplitting.Fields("SD" & test)

  18. rsSplitting.Close

  19. rsSplitting.Open strTest3, con, adOpenKeyset, adLockPessimistic, adCmdText

  20. MsgBox strTest3

  21.     txtEndDate.SetFocus

  22.     txtEndDate.Text = rsSplitting.Fields("ED" & test)

  23. rsSplitting.Close

  24. End Sub

Works


New question: Could someone tell me, is it possible to select multiple columns through 1 select statement?