Use a parameterized query, and fix the syntax error:
Using connection As New OleDbConnection("...")
Using command As New OleDbCommand("SELECT TrainingType, Condensed FROM tblOTrainings WHERE @CJobLevel BETWEEN LowerBound AND UpperBound", connection)
command.Parameters.AddWithValue("@CJobLevel", txtCJobLevel.Text)
Dim table As New DataTable()
Dim da As New OleDbDataAdapter(command)
da.Fill(table)
...
End Using
End Using