vb 从access调用数据流的有关问题

vb 从access调用数据流的问题
我想从access把数据流读写到一个固定的位置（比如：c:\）

我现在可以掉出来 但是只能调到他的执行程序的目录下
Private Sub cmdReadFile_Click()
    readFile App.Path & "\1234556.txt"
End Sub
Private Sub readFile(ByVal strfile As String)
    Dim tmp() As Byte
    If adors.State = adStateOpen Then adors.Close
    adors.Open "select * from 123 where id = 1 ", adocon
    ReDim tmp(adors.Fields(0).ActualSize)                    
    tmp = adors.Fields("pic").Value
    Open strfile For Binary As #1
    Put #1, , tmp
    Close #1
End Sub

怎么修改 可以个他读写到c:\ 下 
------解决方案--------------------
Private Sub cmdReadFile_Click()
    readFile "C:\1234556.txt"
End Sub