ایجاد جدول

[lenovo]

 Private Sub CreateTable()

 Const strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\My Documents\db1.mdb;Persist Security Info=False"

    

    Dim cnn As New ADODB.connection

    Dim cmd As New ADODB.Command

    

    cnn.ConnectionString = strConnection

    cnn.Open

    

    cmd.ActiveConnection = cnn

    cmd.CommandText = "create table tnn1 (a varchar(10), b number)"

    

    cmd.Execute

    cnn.Close

    

End Sub

امیدوارم به دردت بخوره