Dim cn As New ADODB.Connection
cn.ConnectionString = "provider=SQLOLEDB;server=ss;uid=sa;pwd=;database=sdb"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "INSERT into tb select * from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=c:\mdb.mdb;User ID=Admin;Password=;')...tb "
Set cn = Nothing