Sub SQLtest()
Dim Dbe As DAO.Database
Dim Qr As DAO.QueryDef
Dim qdfTRANSFORM As DAO.Database
Dim pSQL1 As String
Set Db = CurrentDb
DoCmd.TransferText TransferType:=acImportDelim, TableName:="Dept1", _
FileName:="C:\Users\Sindhu\Desktop\SC\Dept1.Txt", HasFieldNames:=True
pSQL1 = "TRANSFORM...