[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي أسامة فقط غير هذا السطر :

كود :

Imports System.Data.OleDb

بـــ :

كود :

Imports System.Data.SqlClient

و عبارات OleDb ب Sql

كود :

Imports System.Data.SqlClient
Public Class كتاب
   Dim con As New SqlConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\البيانات.accdb")
   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

و طبعا جملة الإتّصال كمثال :

كود :

   Dim con As New SqlConnection("Server=OSSAMA;Database=SALSES_SYSTEM;Integrated Security=false;user id=Sa;password=123456789")

تحياتي