'--ดึงข้อมูลขึ้นมา
Private Sub showdata()
Dim s As String = ""
s = "Select * From Products" '-----ช่วยแก้บรรทัดนี้ด้วยค่ะ ขอบคุณค่ะ
Dim da As New SqlDataAdapter(s, cn)
Dim ds As New DataSet
da.Fill(ds, "pro")
DataGridView1.DataSource = ds.Tables("pro")
End Sub