ник: Ми
вот пример, можно так:
Dim sPath As String
sPath = "путь к базе"
Dim iFn As Integer
iFn = FreeFile()
Open sPath For Binary Access Write As #iFn
Put #iFn, 10, CStr("чо-нибудь")
Close #iFn
End Sub
А если как текстовый файл и потом запустить ещё, то сразу рухнет, обратно уже нельзя, будет.