为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
（1） 按分数从高到低排序。若分数相同，则按学号进行升序排序。
（2） 以班级为单位，排出从 1 号开始的机房座位表。 章老师编写了一个位置编排功能的 VB 程序，运行界面如下图所示。
在文本框 Text1 中输入班级名称，单击“读数据库”按钮 Command1 后，从数据库读取数 据并显示在列表框 List1 中；单击“编排”按钮 Command2，在列表框 List2 中输出学号、姓名、 成绩和位置信息。

实现以上功能的 VB 程序如下，请回答下列问题：
（1）分析程序，可知数据库的文件名为_____。
（2）请在划线处填入合适的代码。
Dim n   As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As   Integer
Private Sub Command1_Click()
       '本过程在文本框 Text1 中输入班级名称,从数据库中读取指定班级的学号、姓名和成绩
的
       '数据分别存储在数组 xh,xm 和 cj 中
       Dim conn As New ADODB.Connection
       conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="+ App.Path + "\js.accdb"
       conn.Open
       Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
       rs.Open "select * from 技术"
       '本过程的其他语句略
End Sub
Private Sub Command2_Click()
       Dim wz(1 To 40) As Integer
       Dim i As Integer, j   As Integer
       List2.AddItem "学号"   & "       "   & "姓 名"   & "       "   & "成绩"   & "       "   & "位置"
       For i = 1 To n
             ______
       Next i
       For i = 1 To n
             For j = 1 To n
                    If          ______Then
                           wz(i) = wz(i) + 1
                    End If
             Next j
             List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
       Next i
End Sub
Function adj(c As String) As String '固定输出 5 个字符长度
       Dim i As Integer
       ______
       For i = 1 To 5   - Len(c)
             adj = adj + "   "
       Next i
End Function