Can anyone see why I'm getting the error, {"ExecuteReader: Connection property has not been initialized."}? - vb.net

Question

Been staring at this code for 2 hours and I can't find anything. It could be from fatigue. When I run the code, the errors points to
strSelect = "SELECT * FROM TGolfers where strFirstName like '%" &
cboGolfer.Text & "%' or strLastName like '%" & cboGolfer.Text & "%'"
cmdSelect = New OleDb.OleDbCommand(strSelect, m_conAdministrator)
drSourceTable = cmdSelect.ExecuteReader
Using dt As New DataTable()"
in the GetGolfer function Hopefully someone can help me figure out why I'm getting this error and fix it. Thanks
Public Class frmGolfer
Private Sub frmGolfer_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
GetGolfer()
Try
Dim strSelect As String = ""
Dim cmdSelect As OleDb.OleDbCommand
Dim drSourceTable As OleDb.OleDbDataReader
Dim dt As DataTable = New DataTable
Dim strSQL As String = "INSERT INTO TGolfers(strFirstName, strLastName, strEmail) VALUES (#FirstName, #LastName, #Email)"
If OpenDatabaseConnectionSQLServer() = False Then
MessageBox.Show(Me, "Database connection Error." & vbNewLine &
"The application will now close.",
Text + "Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End If
cboGolfer.BeginUpdate()
strSelect = "Select intGolferID, strLastName FROM TGolfers"
cmdSelect = New OleDb.OleDbCommand(strSelect, m_conAdministrator)
drSourceTable = cmdSelect.ExecuteReader
dt.Load(drSourceTable)
cboGolfer.ValueMember = "intGolferID"
cboGolfer.DisplayMember = "strLastName"
cboGolfer.DataSource = dt
cboGolfer.EndUpdate()
drSourceTable.Close()
CloseDatabaseConnection()
Catch excError As Exception
MessageBox.Show(excError.Message)
End Try
If cboGolfer.Items.Count > 0 Then cboGolfer.SelectedIndex = 0
End Sub
Public Function GetGolfer()
Dim strSelect As String = ""
Dim cmdSelect As OleDb.OleDbCommand
Dim drSourceTable As OleDb.OleDbDataReader
strSelect = "SELECT * FROM TGolfers where strFirstName like '%" & cboGolfer.Text & "%' or strLastName like '%" & cboGolfer.Text & "%'"
cmdSelect = New OleDb.OleDbCommand(strSelect, m_conAdministrator)
drSourceTable = cmdSelect.ExecuteReader
Using dt As New DataTable()
DgvGolfer.AutoGenerateColumns = False
DgvGolfer.DataSource = dt
End Using
End Function