syntax error

[Garry]

Private Sub Button_A_Click( ByVal sender As Object, ByVal e
As System.EventArg s) Handles Button_A.Click
Imports System.Data.Ole Db

Dim strSQL As String = "Select * From Customers"
Dim Connection As New OleDbConnection (strConnection)
Dim DA As New OleDbDataAdapte r(strSQL, Connection)
Dim DS As New DataSet

DA.Fill(DS, "Customers" )

dgrdProjects.Da taSource = DA
End Sub

[Jan Tielens]

Re: syntax error

Where?
[color=blue]
> Imports System.Data.Ole Db[/color]
This line should be on top.

--
Greetz,
Jan
_______________ _______________ ____
Read my weblog: http://weblogs.asp.net/jan
"Garry" <garrydawkins@h otmail.com> schreef in bericht
news:03ae01c3cc b0$36eabe10$a00 1280a@phx.gbl.. .[color=blue]
> Private Sub Button_A_Click( ByVal sender As Object, ByVal e
> As System.EventArg s) Handles Button_A.Click
> Imports System.Data.Ole Db
>
> Dim strSQL As String = "Select * From Customers"
> Dim Connection As New OleDbConnection (strConnection)
> Dim DA As New OleDbDataAdapte r(strSQL, Connection)
> Dim DS As New DataSet
>
> DA.Fill(DS, "Customers" )
>
> dgrdProjects.Da taSource = DA
> End Sub
>
>[/color]