Advertisement
Advertisement
| 06.22.2008 at 12:05AM PDT, ID: 23505411 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: |
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from [Student_Outcomes] where [OutcomeDate] = #" & ListView2.SelectedItems.Item(0).SubItems(1).Text & "# And [StudentID] = " & TextBox7.Text
Debug.Print(sql)
studentnotes.Text = ""
studentnotes.Text = (rs.Fields("OutcomeNotes").Value)
rs.Close()
|