Private Sub Command1_Click()'命令按钮
Dim conn As New ADODB.Connection'需在form中添加ADO控件
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/1.mdb;Persist Security Info=False"'建表
conn.Execute "create table a (b longbinary)" '建立字段其中表a中今b字段类型为长二进制
End Sub
