Creating new access table through recordsets

[ramserp]

Hi Everyone,

I want to create a new access table through recordset. I have written the following query but I am getting error. Please let me wher I went wrong.


Sub abc()
Dim sSQL As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.connection
Dim sqlstring As String
Dim colcount As Integer
sSQL = "SELECT * FROM A_SRC"

Set cn = New ADODB.connection
cn.Open "DSN=SB2;Server=AB2001;Uid=admin;Pwd=admin;" 'from your ODBC setup

Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF
sqlstring = "("
For i = 0 To rs.Fields.Count - 1
sqlstring = sqlstring + rs.Fields(i).Name
'sqlstring = sqlstring + " " + rs.Fields(i).
sqlstring = sqlstring + IIf((i + 1) = rs.Fields.Count, ")", ",")
Next
'sql = "CREATE TABLE MyTABLE " + sqlstring
sql = "CREATE TABLE MyTABLE " + sqlstring
CurrentDb.Execute sql
rs.MoveNext
Loop
End Sub

Thanks & Regards
Ram

[OBP]

Ram, it would help the posters on here if you told us what the Error Message says.
You should really add an Error Handling trap to your code.