export database table

Here's one way to do it:

Dim cn As ADODB.Connection
Dim SQL As String

Set cn = New Connection
cn.Open "Provider=SQLOLEDB;User ID=<username>;Password=<password>;Initial Catalog=<database>;Data Source=<servername>"

SQL = "INSERT OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=""d:\path\access_db_name.mdb"";')...<desttable>" & _
"SELECT * FROM <sourcetable>"

cn.Execute SQL
cn.Close

Replace the tokens between angle brackets with the appropriate values.