Visual 6...

Nuevamente Terramar, acá va el ejemplo solicitado, entiendo que conoces los tipos de datos SQL, lo importante acá es la estructura utilizada..
Primero reviso que la tabla exista o no en SQL, si existe la elimino para volver a crearla.
**No olvides declarar las variables.
*"Conexion" es mi conexión con la base..
consql = " select * from sysobjects where name='Clientes'"
conexion.Execute consql
Set Ado = New ADODB.Recordset
Ado.Open consql, conexion, adOpenForwardOnly
'Verifico si la tabla Clientes existe o no para crearla
If Ado.EOF Then
CT1 'Crea Tabla 1
Else
consql = "Drop Table Clientes"
conexion.Execute consql
CT1
End If
___
Sub CT1()
Dim lssql1 As String, lssql2 As String
Dim nom1 As String
nom1= "Client"
lssql1 = " CREATE TABLE Clientes"
lssql1 = lssql1 & " cod_local nvarchar(2) NOT NULL, "
lssql1 = lssql1 & " folio_rec int NOT NULL, "
lssql1 = lssql1 & " fecha_rec Datetime NULL, "
lssql1 = lssql1 & " Rut_provee nvarchar(10) NULL, "
lssql1 = lssql1 & " tipodoc nvarchar(30) NULL, "
lssql1 = lssql1 & " numero_docto nvarchar(25) NOT NULL, "
lssql1 = lssql1 & " fecha_doc Datetime NULL, "
lssql1 = lssql1 & " exentodoc int NULL, "
lssql1 = lssql1 & " fletedoc int NULL, "
lssql1 = lssql1 & " netodoc int NULL, "
lssql1 = lssql1 & " ivadoc int NULL, "
lssql1 = lssql1 & " iladoc int NULL, "
lssql1 = lssql1 & " ihadoc int NULL, "
lssql1 = lssql1 & " brutodoc int NULL, "
lssql1 = lssql1 & " exentorec int NULL, "
lssql1 = lssql1 & " netorec int NULL, "
lssql1 = lssql1 & " ivarec int NULL, "
lssql1 = lssql1 & " ilarec int NULL, "
lssql1 = lssql1 & " iharec int NULL, "
lssql1 = lssql1 & " brutorec int NULL, "
lssql1 = lssql1 & " diferencia int NULL, "
lssql1 = lssql1 & " estado nvarchar(1) NULL, "
lssql1 = lssql1 & " ) "
inicio.conexion.Execute lssql1
'Creación de llaves en la Tabla
lssql2 = "Alter Table " & nombretabla1 & " ADD CONSTRAINT " & nom1 & " PRIMARY KEY ( cod_local, folio_rec,numero_docto )"
conexion.Execute lssql2
End Sub
Eso es todo, pruébalo y me avisas..
Nota: Los campos no tienen relación con el nombre de la tabla, es sólo un ejemplo..
Un abrazo desde Chile.
Master