[saoud2]

عزيزي 

تفضل الكود مع تغيير اسم السيرفر واسم قاعدة البيانات حسب ما هو موجود لديك 

كود :

Imports System.Data.SqlClient

Public Class كتاب
   Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=البيانات;")
   Dim SQLstr As String = "SELECT * FROM  books"
   Dim DataSet As New DataSet
   Dim DataAdapter As SqlDataAdapter

   Public dausers As New SqlDataAdapter
   Public users As New DataTable
End Class