acho que é algo assim:

 

  Dim rst As Recordset
  Set rst = vgdb.OpenRecordset("SELECT Produtos.Codigo, Produtos.Nome FROM Produtos;")
  If rst.RecordCount > 0 Then
    Open "C:     emp     estedelimitadortab.txt" For Output As #1
    Do While Not rst.EOF
      Print #1, rst![Codigo] & Chr(vbKeyTab) & rst![Nome]
      rst.MoveNext
    Loop
    Close #1
  End If
  If Not rst Is Nothing Then
    rst.Close
    Set rst = Nothing
  End If
  MsgBox "ok"

Valeu Martini deu certo era isso mesmo, obrigado a todos pela ajuda.