登录界面连不上数据库的问题？

Public Function cnstr() As String
  cnstr = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_Csell"
End Function
Public Function cnstr() As String
  cnstr = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_Csell"
End Function
Public Function Cnn() As ADODB.Connection    '定义函数
Set Cnn = New ADODB.Connection
  '返回一个数据库连接
 Cnn.Open "Driver={SQL Server};Server=(local);Database=2;Uid=sa;Pwd="
End Function
Private Sub cmdOK_Click()
  Static intMyTimes As Integer
  Dim rs1 As New ADODB.Recordset
  Dim rs2 As New ADODB.Recordset
  rs1.Open "power", Cnn, adOpenStatic, , adCmdTable
  If rs1.RecordCount > 0 Then
    If txt_username.Text = "" Then
        MsgBox "请输入用户名！", , "提示窗口"
        txtusername.SetFocus
        Exit Sub
    End If
    rs2.Open "power where power_name='" + txtusername.Text + "'", Cnn, adOpenKeyset, adLockOptimistic
    If rs2.RecordCount > 0 Then
      If txtpassword.Text = "" Then
        MsgBox "请输入密码！", , "提示窗口"
        txtpassword.SetFocus
        Exit Sub
      End If
      If txtpassword = rs2.Fields("psword") Then
          Load frm_main
          frm_main.Show
          czy = txtusername
          Unload Me
      Else
         If intMyTimes > MaxTimes Then
            MsgBox "您无权使用该软件！", , "提示窗口"
            End
         Else
           MsgBox "密码不正确，请重新输入！", , "提示窗口"
           intMyTimes = intMyTimes + 1
           txtpassword.SetFocus
          End If
      End If
    Else
      MsgBox "用户名不正确，请重新输入！", , "提示窗口"
      txtusername.SetFocus
    End If
    rs2.Close
  Else
    MsgBox "初次登录本系统，请在进入系统后，立即设置操作员及其密码，以确保系统的安全！", , "提示窗口"
    Load frm_main
    frm_main.Show
    Unload Me
  End If
  rs1.Close
End Sub
Set Cnn = New ADODB.Connection
  '返回一个数据库连接
 Cnn.Open "Driver={SQL Server};Server=(local);Database=2;Uid=sa;Pwd="
End Function
Private Sub cmdOK_Click()
  Static intMyTimes As Integer
  Dim rs1 As New ADODB.Recordset
  Dim rs2 As New ADODB.Recordset
  rs1.Open "power", Cnn, adOpenStatic, , adCmdTable
  If rs1.RecordCount > 0 Then
    If txt_username.Text = "" Then
        MsgBox "请输入用户名！", , "提示窗口"
        txtusername.SetFocus
        Exit Sub
    End If
    rs2.Open "power where power_name='" + txtusername.Text + "'", Cnn, adOpenKeyset, adLockOptimistic
    If rs2.RecordCount > 0 Then
      If txtpassword.Text = "" Then
        MsgBox "请输入密码！", , "提示窗口"
        txtpassword.SetFocus
        Exit Sub
      End If
      If txtpassword = rs2.Fields("psword") Then
          Load frm_main
          frm_main.Show
          czy = txtusername
          Unload Me
      Else
         If intMyTimes > MaxTimes Then
            MsgBox "您无权使用该软件！", , "提示窗口"
            End
         Else
           MsgBox "密码不正确，请重新输入！", , "提示窗口"
           intMyTimes = intMyTimes + 1
           txtpassword.SetFocus
          End If
      End If
    Else
      MsgBox "用户名不正确，请重新输入！", , "提示窗口"
      txtusername.SetFocus
    End If
    rs2.Close
  Else
    MsgBox "初次登录本系统，请在进入系统后，立即设置操作员及其密码，以确保系统的安全！", , "提示窗口"
    Load frm_main
    frm_main.Show
    Unload Me
  End If
  rs1.Close
End Sub Public Function Cnn() As ADODB.Connection    '定义函数   运行时这一句弹出“编译错误：用户定义类型未定义”杂回事呢？