SQL Table to access table

Question

Can anyone help me here ? 
I want to get the sql server table into access database . 
I have tried below code from some Internet source but it didn't worked 
Public Sub test1()
Dim conn As ADODB.Connection '<<<connection to SQL Server
Dim rst As ADODB.Recordset '<<<Recordset for SQL Server
Dim dbConn As ADODB.Connection '<<<connection for current access db
Dim sqlq As String
'create connection to external database
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ServerName & ""
'On Error GoTo err
'Db.Open "Provider=SQLOLEDB.1;Data Source=" & ServerName & ";" & _
        'Initial Catalog=" & DatabaseName & ";User ID=TestID;Password=srm"
'pull records from database into recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM Tbl_HRBPO_BAC_OMT_CS_Data "
Set dbConn = CurrentProject.Connection
'move through each record and load it into the local access database using Execute method
rst.MoveFirst
Do While Not rst.EOF
sqlq = "INSERT INTO newt VALUES('" & rst.Fields(0).Value & "', '" & rst.Fields(1).Value & "')"
dbConn.Execute sqlq
rst.MoveNext
Loop
dbConn.Close
Set dbConn = Nothing
rst.Close
conn.Close
Set rst = Nothing
Set conn = Nothing
End Sub
Thanks in advance 

Answer 1

You could use Export data in SMSS if it is a one time thing.
Andy Tauber
Data Architect
The Vancouver Clinic
Website | LinkedIn
This posting is provided "AS IS" with no warranties, and confers no rights. Please remember to click
"Mark as Answer" and "Vote as Helpful" on posts that help you. This can be beneficial to other community members reading the thread.