VB按照多条件到Access查询数据

呵呵，又见到你真高兴！最近都忙些啥呢？朋友

哦，大忙人啊！
我将数据库结构截图出来。

listview1中的学科那一栏也是自定义行的所有的学科，现在要做的是从表FSQK中人员
所对应的各科成绩，直接填到listview1中分数那一栏。表FSQK中没有的则在listview1中的分数栏显示“没有”

没看懂多少，太简化了。还是附上我的全代码吧。
------------------------------------------------------------
模块中代码：
Public cn As New ADODB.Connection '连接
Public rs As New ADODB.Recordset '记录集
Public Sub OpenConn() '连接数据库
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"
End Sub
'关闭数据库连接
Public Sub CloseConn()
'rs.Close
'Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
---------------------------------------------------------------
Form中代码:
Dim SQL As String
Dim AddData As ListItem
'添加和查找数据
Private Sub CmdCZ_Click()
SQL = "select * from FSQK where xingming like '%" & Me.TexXM.Text & "%' ORDER BY ID ASC"
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set AddData = ListView1.ListItems.Add(, , rs.Fields("ID").Value)
AddData.SubItems(1) = IIf(IsNull(rs.Fields("xueke")), "", rs.Fields("xueke"))
AddData.SubItems(2) = IIf(IsNull(rs.Fields("fenshu")), "", rs.Fields("fenshu"))
rs.MoveNext
Loop
Call CloseConn
End Sub
Private Sub Form_Load()
With ListView1
.ColumnHeaders.Add , , "ID"
.ColumnHeaders.Add , , "学科"
.ColumnHeaders.Add , , "分数"
.ColumnHeaders(1).Width = 0
End With
'添加现有所有学科到listview1中
Call OpenConn
SQL = "select * from SYxueke ORDER BY ID"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addlist1 = ListView1.ListItems.Add(, , rs.Fields("ID").Value)
addlist1.SubItems(1) = IIf(IsNull(rs.Fields("xueke")), "", rs.Fields("xueke"))
rs.MoveNext
Loop
Call CloseConn
End Sub
---------------------------end------------------------------
以上代码只能实现将所查找到得数据添加到了已经定义好的数据的下面，而我要的是将数据添加到学科的分数那栏，而不是添加到原有数据的下方。
请帮看看改改！



既然姓名和学科都是查询条件而这2个在FSQK中都有
那就是select fenshu from FSQK where xingming='xxx' and xueke='xxx'
xxx自己传啊

是的，a6essaw说的对！其实所有科目是从数据库的一个表“SYkemu"中获取的所有科目，然后根据姓名和所有的listview1的第一列所有的科目到表”FSQK"中找到对应科目和对应分数，如有没有的科目则直接在该科目的后面显示“没有”。
我之所以这样做有两个目的。第一，以后可以在表“SYkemu”中添加和删除科目；第二，如果所查找到该学生的的哪一科还没有录入则可以看到“没有”。
a6essaw，请问那如何根据姓名和所有的listview1的第一列所有的科目到表”FSQK"中找到对应科目和对应分数呢？
就是相当于把下面这这两段结合在一起，怎么改写呢？
--------------------------------------------------------------------------------
SQL = "select * from FSQK where xingming like '%" & Me.TexXM.Text & "%' ORDER BY ID ASC"
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set AddData = ListView1.ListItems.Add(, , rs.Fields("ID").Value)
AddData.SubItems(1) = IIf(IsNull(rs.Fields("xueke")), "", rs.Fields("xueke"))
AddData.SubItems(2) = IIf(IsNull(rs.Fields("fenshu")), "", rs.Fields("fenshu"))
rs.MoveNext
Loop
Call CloseConn
--------------------------------------------------------------------------------
Call OpenConn
SQL = "select * from SYxueke ORDER BY ID"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addlist1 = ListView1.ListItems.Add(, , rs.Fields("ID").Value)
addlist1.SubItems(1) = IIf(IsNull(rs.Fields("xueke")), "", rs.Fields("xueke"))
rs.MoveNext
Loop
Call CloseConn
--------------------------------------------------------------------------------