再问窗体问题

你看看下面的 代码哪错了 我想换这种方法

Option Compare Database
Option Explicit
Dim str As String, lblm As Integer, lbli As Integer
Dim I As Integer, n As Integer
Dim gdt As String, gdl As Integer, gdi As Integer
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
'切换选项卡页面
Function TabSortClick(lblCommand As Label, n As Integer)
    Me.Tab.Value = n
    lblBB.Top = lblCommand.Top
End Function