求助:用ADO批量修改改文件名(已贴代码)

原始代码是这样,是可以正常批量修改成功的:

Public Function bb()
    Path1 = "E:\vod\"
    OldName = Dir(Path1 & "*")
    Do While OldName <> ""
       If Right(OldName, 3) = "dat" Then
        NewName = Replace(OldName, "自由", "特例")
        Name Path1 & OldName As Path1 & NewName
       End If
    OldName = Dir
    Loop
End Function

但改为下面这样就不行了,没有提示错误:

Public Function aa()
    Dim OldName, NewName, Path1, strsql, gs, gm, yz, lb As String
   
    Path1 = "E:\vod\"
    OldName = Dir(Path1 & "*")
   
    strsql = "SELECT * FROM 表1;"
    Dim db As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Set db = CurrentProject.Connection
    rs.Open strsql, db, 1, 3
   
      If rs.RecordCount = 0 Then
        MsgBox "没有任何数据！", vbInformation, "系统提示！"
        rs.Close
        Exit Function
       End If

   
   While Not rs.EOF
  
   gs = rs("Singer") '歌手
   gm = rs("SongName") '歌名
   yz = rs("LangClass") '语种
   lb = rs("SongStyle") '类别
  
  
       If Right(OldName, 3) = "dat" Then
         NewName = Replace(OldName, gm, gs & "-" & gm & "(" & yz & "-" & lb & ")")
         'MsgBox NewName
         Name Path1 & OldName As Path1 & NewName
       End If
   
       OldName = Dir

 
   rs.MoveNext
   Wend
            
    rs.Close
    Set conn = Nothing
    Set rs = Nothing

End Function