Private Sub 创建_Click()
Dim cnn As String
Dim dbs As Object
Dim tdf As Object
Set dbs = CurrentDb
strConnect = "ODBC;DRIVER=SQL Server" & _
";SERVER=******" & _
";DATABASE=YB" & _
";UID=sa" & _
"WD=******"
Set tdf = dbs.CreateTableDef("passwd")
tdf.Connect = strConnect
tdf.SourceTableName = "passwd"
dbs.TableDefs.Append tdf
Set dbs = Nothing
Set tdf = Nothing
Application.RefreshDatabaseWindow
MsgBox "创建成功,请查看表"
End Sub