咋sql server速度不如Access

这是sql server的
Dim lngA As Long
lngA = GetTickCount

Dim Cnn
Dim LsRst
Set Cnn = CreateObject("ADODB.Connection")
Set LsRst = CreateObject("ADODB.Recordset")
str1 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
str1 = str1 & "User ID=sa;Initial Catalog=电话号码;Data Source=DB4Y3Z1X"
Cnn.CursorLocation = 3
Cnn.Open str1

LsRst.CursorType = 1 'adOpenKeyset
LsRst.LockType = 3 'adLockOptimistic
LsRst.Open strSQL, Cnn

Set GetRst = LsRst
Debug.Print GetTickCount - lngA


这是access的
Dim lngA As Long
lngA = GetTickCount

Dim Cnn
Dim LsRst
Set Cnn = CreateObject("ADODB.Connection")
Set LsRst = CreateObject("ADODB.Recordset")
Cnn.Provider = "Microsoft.JET.OLEDB.4.0"
Cnn.Open "Data Source=" + "\\DB4Y3Z1X\数据中心\数据库系统\数据库.mdb"
LsRst.ActiveConnection = Cnn
LsRst.LockType = 3
LsRst.CursorType = 1
LsRst.Open strSQL
Set GetRstAccess = LsRst

Debug.Print GetTickCount - lngA

两个数据库内容一样，都是6万数据，因为是全部读取，应该与索引什么的没关系，花费的时间竟为
sql server 1281ms
access 15ms
不活人了！谁来告诉我