解决ADODB执行SQL命令超时的问题，可以尝试以下几种方法：

1. 增加命令超时时间：可以通过设置Command对象的CommandTimeout属性来增加命令的超时时间。例如，将超时时间设置为30秒：

Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM TableName"
cmd.CommandTimeout = 30 ' 设置超时时间为30秒

2. 优化SQL语句：如果SQL语句执行时间过长，可以尝试优化SQL语句，加快执行速度。可以通过索引、合适的查询条件、避免使用不必要的连接和子查询等方法来优化SQL语句。

3. 检查数据库连接：确保数据库连接正常，网络连接稳定。可以使用Ping命令检查数据库服务器的网络连接是否正常。

4. 检查服务器负载：如果数据库服务器负载过高，可能导致SQL命令执行超时。可以检查服务器的负载情况，并考虑增加服务器资源或优化数据库配置。

5. 使用异步执行：如果SQL命令执行时间较长，可以考虑使用异步执行。使用Execute方法的异步版本ExecuteAsync可以在后台执行SQL命令，不会阻塞主线程。

Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM TableName"
cmd.CommandTimeout = 30 ' 设置超时时间为30秒
cmd.ExecuteAsync

6. 使用批量操作：如果需要执行大量的SQL命令，可以考虑使用ADODB.Recordset对象的批量操作功能。通过设置Recordset对象的CursorType和LockType属性，可以实现对多条SQL命令的批量操作，提高执行效率。

以上是一些常见的解决方法，根据具体情况选择适合的方法来解决ADODB执行SQL命令超时的问题。