vb 代码方式清空access数据库中所有表中的所有数据，保留表结构,该怎么解决

vb 代码方式清空access数据库中所有表中的所有数据，保留表结构
vb 代码方式清空access数据库中所有表中的所有数据，保留表结构
注意是清空所有表的记录！不是清空某一个表的记录



请问代码怎么写

------解决方案--------------------
一个表一个表清
------解决方案--------------------
'引用 Microsoft AcviteX Data Objects 2.x Library

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'c:\db1.mdb';"
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
cnn1.Execute "DELETE * FROM " & rstSchema!TABLE_NAME
End If
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close
------解决方案--------------------
delete from table