konu çözümlendi ;


'*/*/*/*/*/*/*//*/kodlar burdanbaşlar*/*/*/*/*/*/*/


Public Sub VeriAl()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f
Dim name, text, path, veri As String
Dim cnn As New ADODB.Connection
Dim rst As New Recordset


path = CurrentProject.path
name = path & "\Veriler.txt"


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(name, 1, -2)


Set cnn = CurrentProject.Connection
rst.Open "tblVeri", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

Do While Not f.AtEndofStream
text = f.readLine
If Trim(text) <> "" Then
veri = veri & " " & text
Else
rst.AddNew
rst(1) = veri
rst.Update
veri = ""
End If
Loop

rst.AddNew
rst(1) = veri
rst.Update

Me.tblVeri_alt_formu.Form.Requery
f.Close
rst.Close
Set f = Nothing
Set fs = Nothing
Set rst = Nothing
Set cnn = Nothing

End Sub

Private Sub cmdAl_Click()
Call VeriAl
End Sub
'/*/*/*/*/*/*/*/*/kodlar burada biter */*/*/*/*/



iyi bayramlar