[VB.NET]名称

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
名称 未声明是怎么回事啊？？？
名称 未声明是怎么回事啊？？？
写的一段登陆界面代码中，好几处都是名称未声明。 求解。
（adUseClient，txtUserID，adOpenStatic, adLockReadOnly，txtPwd）这些代码都是名称未声明，哪位高手可以告诉我怎么改么？？最好是详细一点，本人菜鸟。
把修改好的发上也行。

谢谢！！！！

Private Sub _Command1_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Command1_0.Click
Dim strSQL As String
Dim cn As New adodb.connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;
cn.open()
rs.CursorLocation = adUseClient
strSQL = select 密码 from 表 where 登录名= & txtUserID.Text &
rs.Open(strSQL, cn, adOpenStatic, adLockReadOnly)
If rs.recordcount = 0 Then
MsgBox( 用户名不正确 )
Else
If rs.Fields(0).Value = txtPwd.text Then
MsgBox( 登录成功 )
Else
MsgBox( 密码错误 )
End If
End If
End Sub
__________________________________________________________________________
给你一段偶运行通过的代码，对照着修改吧，应该没什么问题的
Imports System.Data.SqlClient

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If Trim(UsernameTextBox.Text) = Or Trim(PasswordTextBox.Text) = Then
LoginError() //这是自己写的函数
Exit Sub
Else
End If
Dim queryString As String = SELECT u_name, u_password FROM usermanage where u_name= & UsernameTextBox.Text & and u_password= & PasswordTextBox.Text & ;
Dim Sconnect As New SqlConnection( server=服务器名;user id=登陆数据库的用户名;password=登陆数据库的密码;database=sql数据库名 )
Dim command As New SqlCommand(queryString, Sconnect)
Sconnect.Open()
Dim reader As SqlDataReader = command.ExecuteReader()
If reader.HasRows = True Then
reader.Read()
username = UsernameTextBox.Text
Me.Hide()
frmMain.Show()
Else
LoginError()
End If
Sconnect.Close()
End Sub
__________________________________________________________________________
换上你的这个比我的还未声明的还多啊
__________________________________________________________________________
不过还是非常感谢
__________________________________________________________________________
你要在 引用哪里 右键 添加 引用
然后在 .net 下找到 adodb这个组件.-> 添加
然后在使用 这个.

Imports ADODB
Imports ADODB.CursorLocationEnum 这个为了声明这个CursorLocation 的
Imports ADODB.CursorTypeEnum 为了声明adOpenStatic
Imports ADODB.LockTypeEnum adLockReadOnly

昨天我回答过你的.
__________________________________________________________________________
If rs.Fields(0).Value = txtPwd.text Then 这个txtpwd.txt的一个文本框
__________________________________________________________________________
我按你说的添加了adodb这个组件，但还是不行， Imports 语句前面必须是声明 这个错误提示
__________________________________________________________________________
那发你的页面代码出来看看...
__________________________________________________________________________