[indoprog-vb] transfer text file

[sunardi_kss]

dear Programmer VB

terima kasih atas sourcenya yang diberikan kepada saya. Saya sudah 
coba programnya seperti dibawah ini

Private Sub Command1_Click()
Dim Filebebas As Integer
If Not rsKemasan.EOF Then
    rsKemasan.MoveFirst
    Filebebas = FreeFile
    Open "C:\Test.txt" For Output As Filebebas
    While Not rsKemasan.EOF
        Print #Filebebas, rsKemasan!Kode; ","; rsKemasan!Kemasan
        rsKemasan.MoveNext
    Wend
    Close #Filebebas
End If
rsKemasan.Close
MsgBox "Transfer selesai"
End Sub

Private Sub Form_Load()
BukaDatabase
End Sub

dan hasil transfer text filenya sebagai berikut :

BP,Bulk Pack
EB,Exlusive Box
GB,Gift Box
GP,Gift Pack
WB,White Box
SH,Shrinkwrap

tapi hasil yang saya inginkan adalah sebagai berikut :
"BP","Bulk Pack"
"EB","Exlusive Box"
"GB","Gift Box"
"GP","Gift Pack"
"SH","Shrinkwrap"
"WB","White Box"
ini hasil export text file dari MS ACCESS.

Mohon infonya lagi. terima kasih yah....