用户sa登陆失败，with块变量未定义，求大神指导

With Ado
        .Visible = False
        .ConnectionString = cnn.ConnectionString
        .CommandType = adCmdText
        .RecordSource = Sql
        .Refresh
End With
ado是窗体中的控件，结果编译时总是提示用户sa登陆失败，检查过连接字符串，没有问题，还有就是提示with块变量未定义，可是ado明明已经是窗体上的控件啦。请求各位大神指导，急！ 1，检查ADO控件名是否为Ado
2，检查cnn是否已经连接数据库
ADO控件名是Ado
cnn连接数据库已经在模块中定义了 http://download.csdn.net/detail/veron_04/3827200 设置sql server允许网络登录，设置sql server登录模式为windows 和 sql 登录。
设置sql server允许网络登录，设置sql server登录模式为windows 和 sql 登录。 cnn连接串是否已经指定
cnn使用使用open方法打开 cnn使用已经定义
dim cnn as new adodb.connection

补充：VB ,  基础类