[cvcvcv]

قمت بكتاية هذا الكود لعرض طلاب الفصل 1 .. فجاءت رسالة كما في الصورة المرفقة

Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Users\Tarek Ghonem\Desktop\db1.mdb; Jet OLEDBatabase Password=")

Dim sql As String = _
" SELECT * " & _
" FROM qw " & _
" where " & _
" class=@class "

Dim comm As New OleDb.OleDbCommand(Sql, conn)
comm.Parameters.AddWithValue("@class", 1)


Dim da As New OleDb.OleDbDataAdapter(comm)
Dim dt As New DataTable
Dim count = da.Fill(dt)

If count > 0 Then
'
End If

For Each r As DataRow In dt.Rows
'Me.ListBox1.Items.Add(r.Item("id"))
Next