vb登录判断问题
大家好，我是个菜鸟，刚学习VB，我有一个问题想请教！
我想在VB中用IF语句做判断 ，如果满足quanxian="user"则执行语句（不能执行） 我的数据库sql里字段有username passwoer quanxian
代码如下：
Private Sub cmdOK_Click()
Dim m As String
Dim quanxian As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=niuniu;uid=;pwd=;database=sbgl"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select username,password,quanxian from 帐号管理 where username='" & Trim(txtUserName.Text) & "' And password ='" & Trim(txtPassword.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
txtUserName.Text = ""
txtUserName.SetFocus
txtPassword.Text = ""
txtPassword.SetFocus
ElseIf rs!quanxian = "user" Then
shouye.Hide
shouye.Show
Unload frmLogin
Else
shouye1.Hide
shouye1.Show
Unload frmLogin
End If
rs.Close
End Sub
VB code:
'password为系统关键字，建议不要作为表名与字段名使用，一定要用则需要用方括号
'代码尽量缩进
Private Sub cmdOK_Click()
Dim m A
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
