Object variable or With block variable not set problem

Jeg får denne fejl: Object variable or With block variable not set. Når jeg prøve at bruge følgende kode sammen med et datagrid. Jeg forstår ikke helt hvorfor jeg får den og heller ikke hvordan jeg kommer af med den.

    Sub fyld_dgAfstem(ByVal maskineid As String)

        Dim conn As New OleDbConnection(ConnectionString)
        Dim cmd As New OleDbCommand()

        With cmd
            .Connection = conn
            .CommandText = "qhentIndspilPrMaskine"
            .CommandType = CommandType.StoredProcedure
            .Parameters.Add("@maskinid", OleDbType.VarChar, 50).Value = maskineid.Trim()
        End With

        Try
            conn.Open()
            dgAfstem.DataSource = cmd.ExecuteReader
            dgAfstem.DataBind()
        Catch ex As Exception
            lblerrors.Text = ex.Message & "<br />" & ex.ToString
        Finally
            if conn.State = ConnectionState.Open then
                conn.Close()
            end if
        End Try
    End Sub

    Sub dgAfstem_ItemBound(Sender As Object, e As DataGridItemEventArgs)
        dgafstem_fdato = CType(e.Item.DataItem("DatoAfregn"), DateTime)
    End Sub

Det er ItemBound functionen som laver fejlen, håber der er en som kan hjælpe.