I also have same problem with run time error 9 subscript out of range,my code is below
Private Sub Command0_Click()
Dim MyArray As Variant
Dim fso As Variant
Dim objStream As Variant
Dim objFile As Variant
Dim sSQL As String
Dim myString As String
Dim db As Database
Dim rs As...