dim sql as string ="SELECT * FROM TEST"
dim cdm as new sqlcommand(sql,con)
dim adp as new sqldataadapter(cmd)
dim data as new dataset ' ประกาศตัวแปล data ที่เป็นตัวแปรประเภท dataset
adp.fill(data,"test") ' ฟิล ข้อมูลที่ได้จากการ Query ใส่ dataset
datagridview1.datasource = data.table("test") ' นำค่าใน dataset ไปแสดงใน datagridview