<xmp>UNKNOWN
'**************************************
' Name: Copy Access Table Structure
' Description:There are a number of diff
'     erent ways to copy the structure only of
'     an Access table programatically, but non
'     e as simple as the following using ADO &
'     ODBC.
' By: J.A. Coutts
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:None
'
'Side Effects:None
'This code is copyrighted and has limite
'     d warranties.
'Please see http://www.Planet-Source-Cod
'     e.com/xq/ASP/txtCodeId.74570/lngWId.1/qx
'     /vb/scripts/ShowCode.htm
'for details.
'**************************************

	Dim ADOConnStr1 As String
	Dim adoConn1 As ADODB.Connection
	ADOConnStr1 = "DSN=Test;uid=;pwd=;"
	Set adoConn1 = CreateObject("ADODB.Connection")
	adoConn1.Open ADOConnStr1
	adoConn1.Execute ("SELECT * INTO NewTable FROM OldTable WHERE 0 = 1;")

		</xmp>