Похоже что да. Я себе для формирования таких запросов написал функцию, которая по имени таблицы возвращает список полей. И потом его через буфер обмена в запрос:-)

:-)
Можно.
Но чаще всего эта строка, как и в этом примере, требует ручной доводки.
Тут , например, надо выкинуть id. Можно это сделать и бэйсиком, конечно, но это уже смахивает на извращение.

Мы наверно об разном:-)
Мне иногда приходится писать похожие запросы
Update
Поле1
...
Поле9999
Это я загнул конечно, но их десятки.
Или Create table
...
Поэтому написал пару функций, которые нигде не используются, кроме как мной при ваянии скриптика

Мне иногда помогает.

Public Function fnFieldList(pTableName As String, pCn As ADODB.Connection) As String
Dim s1 As String, sResult As String, sSQL As String
Dim rst1 As ADODB.Recordset: Set rst1 = New ADODB.Recordset
sSQL = "Select * From " & pTableName & " Where (0=1)"
rst1.Open sSQL, pCn, adOpenStatic, adLockReadOnly
Dim f1 As ADODB.Field
sResult = ""
For Each f1 In rst1.Fields
sResult = sResult & pTableName & "." & f1.Name & " as " & _
pTableName & "_" & f1.Name & "," & vbCrLf
Next f1
sResult = Left(sResult, Len(sResult) - 3)
rst1.Close
fnFieldList = sResult
Set rst1 = Nothing
End Function

Public Function fnFieldListWithType(pTableName As String, pCnSQL As ADODB.Connection) As String
Dim s1 As String, sResult As String, sSQL As String, sType As String
sSQL = "Select * From " & pTableName & " Where (0=1)"
With pCnSQL.Execute(sSQL)
Dim f1 As ADODB.Field
sResult = ""
For Each f1 In .Fields
Select Case f1.Type
Case adSmallInt: sType = "smallint"
Case adInteger: sType = "int"
Case adCurrency: sType = "money"
Case adBoolean: sType = "bit"
Case adUnsignedTinyInt: sType = "tinyint"
Case adDBTimeStamp: sType = "smalldatetime"
Case adDate: sType = "smalldatetime"
Case adVarChar: sType = "varchar(" & CStr(f1.DefinedSize) & ")"
Case adVarWChar: sType = "varchar(" & CStr(f1.DefinedSize) & ")"
Case adLongVarBinary: sType = "image"
Case Else: Err.Raise 1200, , "Íåèçâåñòíûé òèï. N=" & CStr(f1.Type)
End Select
sResult = sResult & f1.Name & " " & sType & "," & vbCrLf
Next f1
sResult = Left(sResult, Len(sResult) - 3)
fnFieldListWithType = sResult
End With
End Function

Public Function fnFieldListWithTypeJet(pTableName As String, pCnSQL As ADODB.Connection) As String
Dim s1 As String, sResult As String, sSQL As String, sType As String
sSQL = "Select * From " & pTableName & " Where (0=1)"
With pCnSQL.Execute(sSQL)
Dim f1 As ADODB.Field
sResult = ""
For Each f1 In .Fields
sType = fnAdoType(f1)
sResult = sResult & f1.Name & " " & sType & "," & vbCrLf
Next f1
sResult = Left(sResult, Len(sResult) - 3)
fnFieldListWithTypeJet = sResult
End With

End Function

- таблы с десятками полей (да еще и обновлять все сразу) - не не мое это

Думаешь,мое?
А х%ли я сделаю, если задача такая:-)