Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim sql As String, sqlf As String
Dim strf(10) As String
Dim i As Long, j As Long
sql = "select * from temp"
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
i = 0
Do While Not rs.EOF
    i = i + 1
    strf(i) = rs!材料
    rs.MoveNext
Loop
sqlf = ""
For j = 1 To i
    sqlf = sqlf + strf(j) + " text" + IIf(j = i, "", ",")
Next
sqlf = "(" + sqlf + ")"
CurrentDb.Execute "CREATE TABLE " & Me.Text5 & sqlf
End Sub

 

生成表子程序