Visual Basic.NET - Error objeto

Public Function FnMostrarClientes() As DataTable

    Try

        FnConectado()

        cmd = New MySqlCommand("select * from clientes")

        If cmd.ExecuteNonQuery >= 1 Then

            Dim dt As New DataTable

            Dim da As New MySqlDataAdapter(cmd)

            da.Fill(dt)

            Return dt

        Else

            Return Nothing

        End If

    Catch ex As Exception

        MessageBox.Show(ex.Message)

        Return Nothing

    Finally

        FnDesconectado()

    End Try

End Function

Dim cmd As New MySqlCommand

Dim MisPersonas As MySqlDataReader

cmd.CommandText = "SELECT * FROM TPersonas"

cmd = MaCommande.ExecuteReader()

Do While MisPersonas.Read

       Console.WriteLine(MisPersonas.Item(0) & " " & MisPersonas.Item(1) ....)

Loop

MisPersonas.Close()