Public Sub XExcel()
Dim OutString As String
Dim MyItemCode As String
Dim Myp1 As String
Dim Myp2 As String
Dim Myp3 As String
Dim Myp4 As String
Dim Myp5 As String
Dim Myp6 As String
Dim Myp7 As String
Dim Myp8 As String
Dim Myp9 As String
Dim MyCt As Long
Dim MyExt As String
Dim MyDistr As String
Dim Mysql As String
Dim MyRst As ADODB.Recordset
Dim ItRst As ADODB.Recordset
Dim FileNumber As Long
Dim swop As String
Mysql = "Select * From SBO003"
Set MyRst = New ADODB.Recordset
MyRst.Open Mysql, CurrentProject.Connection, adOpenStatic, adLockPessimistic
FileNumber = FreeFile
    Open "c:\sap_Price\Prices.txt" For Output As #FileNumber
'===========================================
  Myp1 = MyRst( 0 ) & Chr( 9 )
  Myp2 = MyRst( 2 ) & Chr( 9 )
  Myp3 = MyRst( 5 ) & Chr( 9 )
  Myp4 = MyRst( 4 ) & Chr( 9 )
  Myp5 = "$" & Chr( 9 )
   OutString = Myp1 & Myp2 & Myp3 & Myp4 & Myp5
  Print #FileNumber, OutString   ' Output text.
  MyCt = MyCt +  1 
  MyRst.MoveNext
Do Until MyRst.EOF
  Myp1 = MyRst( 0 ) & Chr( 9 )
  Myp2 = MyRst( 2 ) & Chr( 9 )
  Myp3 = MyRst( 5 ) & Chr( 9 )
  Myp4 = MyRst( 4 ) & Chr( 9 )
  Myp5 = "$" & Chr( 9 )
  
   OutString = Myp1 & Myp2 & Myp3 & Myp4 & Myp5
   Print #FileNumber, OutString   ' Output text.
   MyRst.MoveNext
Loop
Close #FileNumber    ' Close file
MyRst.Close
Set MyRst = Nothing
MsgBox ("Alless")
End Sub