求助，设置DataGrid的DataSource为Adodc1时提示Invalid authorization specification

[nsn0623]

Private Sub Command9_Click()

Adodc1.Visible = False
Adodc1.RecordSource = "select * from lup_2g where lup_type='imsi attach'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh

End Sub

Adodc1.Refresh 出错，该设置的都设置了，不知为什么

Private Sub Form_Load()

Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String

db_host = "localhost"
db_user = "root"
db_pass = "mysql"
db_data = "cfa"

strcn = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & "UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3;stmt=SET NAMES GBK"

End Sub

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset


On Error GoTo ExecuteSQL_Exit

Set cnn = New ADODB.Connection
cnn.Open strcn

Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic

Set ExecuteSQL = rst

Exit Function

ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Set ExecuteSQL = Nothing

End Function