هنا

[mualla]

Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
Dim sqlcon As New SqlConnection
Dim da As New SqlDataAdapter("Select * from items", sqlcon)
Dim ds As New DataSet("items")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqlcon.ConnectionString = ("Server=.\ITPROF;Database=whsystems;Trusted_conne ction=yes;")
da.Fill(ds, "items")
DataGridView1.DataSource = ds.Tables("items")
End Sub
End Class