できた！

If DCount("No", "T_Number") = 0 Then

rs![No] = 1

Else
rs![No] = DCount("No", "T_Number") + 1


End If
'rs![font_name] = TextLine

rs.Update

で条件式をおなじにしたらできた！

連番にしたい

acccess vbaで取り込んできたデータを１，２，３みたいに

連番にしたい

If DCount("No", "T_Number") = 0 Then

rs![No] = 1
Else
rs![No] = Format(DMax("No", "T_Number")) + 1

End If

って突っ込んでいるんだけど、どうしても

１，１，１，１，１になってしまう。。。

どうしてだろう。

できたーーーーーーー！

できたっすーーーーー！

Sub final()

Dim rs As DAO.Recordset
Dim myPath As String
Dim MyName As String
Dim MyFile As String
Dim FileNo As String

myPath = "C:\●●\■■\"
MyName = Dir(myPath, vbNormal)
MyFile = myPath & MyName


Set rs = CurrentDb().OpenRecordset("T_FONT")


Do While MyName <> ""

FileNo = FreeFile

Open MyFile For Input As FileNo
Do Until EOF(FileNo)
Line Input #FileNo, TextLine

rs.AddNew
rs![PC_NAME] = MyName
rs![font_name] = TextLine
rs.Update
Loop
MyName = Dir


Loop

rs.Close: Set rs = Nothing

End Sub

こんな感じですかね！

とりあえず動いたからよかったー！

データ型とかまだまだかもしれないのですが、とりあえずがんばったっす！