كيف استخدم جملة استعلام Sql في Ado.net

بكتب الكود لك وياريت تتأكد منه لإني بعيد عن جهازي الخاص

dim con as new sqlconnection("YourConnectionString")
dim cmd as new sqlcommand("select * from customer",con)
dim dr as sqldataReader

con.open
dr = cmd.executeReader
if dr.hasrow
while dr.read
txt1.text &= "ID : " &  dr(0) & vbnewline
txt2.text &= "Name : " & dr(1) & vbnewline
end while
end if
con.close

ISSA84 ألف شكر لك

لكون لم يعمل الكود أرجو إعادة النظر فيه ولكم جزيل الشكر

نفس كود الاخ عيسى مع قليل من التغييرات ويجب ان تغيير اسم قاعدة البيانات واسماء الحقول والافضل لك ان ترجع الى الكتب لان هذا مثال بسيط جدا وحالة من عدة حالات للتعامل مع قواعد البيانات

imports  System
imports System.Data
imports System.Data.SqlClient

----------------------------------
'Put  in  a  sub
dim con as new sqlconnection(""Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI")")
dim cmd as new sqlcommand("select * from customer",con)
dim dr as sqldataReader

con.open
dr = cmd.executeReader

while dr.read
msgbox   "ID : " &  dr(0) & vbnewline  &   "Name : " & dr(1) & vbnewline
end while

con.close

ياشباب ما اشتغل الكود

علماً أني اعمل على قاعدة بيانات أكسس

كما إني أريد عرض البيانات في DataGridView

ألف شكر لكم