Sub SQL_abc()
Dim cn, rst As Object
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.recordset")
Dim strSQL As String
Dim i As Integer
strSQL = " select ID_AP, Decription, Import, Export, Import + Export as [Stock] from [NKY_AP$]"
Dim...