I am changing some code on this program at work and this actually worked before so I guess I broke it.

I'm getting the error "Execute Reader: CommandText has not been initialized"



Code:
Private Function Process_Invoice_HRA(ByVal strCode As String) As Boolean
        Notify("Invoice")

        Dim strPlanYear As String
        Dim strEmployerNumber As String

        Select Case Mid(strCode, 1, 1)
            Case "("
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 8, strCode.Length - 8)
            Case "-"
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 13, strCode.Length - 13)
        End Select

     
        EmployerDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(1).Value = strPlanYear


        Try
            DsErEeEp1.Clear()
            EmployerDataAdapter.Fill(DsErEeEp1)
            PlanDataAdapter.Fill(DsErEeEp1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

EDIT: I'm getting this error on the Fill.