I am trying to compile the following code but am getting an "Identifier expected" error on Line 1:

Private Sub btnExecute_Click(ByVal sender As System.Object,_
 ByVal e As System.EventArgs) Handles btnExecute.Click
    Dim cmd As SqlCommand = SqlConnection1.CreateCommand
    cmd.CommandType = CommandType.text
    cmd.CommandText = txtQuery.text
    Dim da As SqlDataAdapter = New SqlDataAdapter
    da.SelectCommand = cmd
    Dim ds As DataSet = New DataSet
    da.Fill(ds, "Results")
    dgResults.DataSource = ds
    dgResults.DataMember = "Results"
End Sub

Could anyone please advise why this might be?

Many thanks,

Neha

Doesn't the compiler tell you where specifically the error is (in the line)? Also, which line is #1? The function declaration or the first line of the function?

-Peter

The error is in the first line (at the end of the line)',_'

Many thanks.

Take out the underscore ("_") in your first line.

J

You need a space between the , and _.

Private Sub btnExecute_Click(ByVal sender As System.Object, _

-Peter

I have removed the space and am still getting the same error.
Removing the underscore generates the same error aswell.

No, he said you need to add a space, not remove it. In his example:

Private Sub btnExecute_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnExecute.Click
        Dim cmd As SqlCommand = SqlConnection1.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = txtQuery.text
        Dim da As SqlDataAdapter = New SqlDataAdapter
        da.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "Results")
        dgResults.DataSource = ds
        dgResults.DataMember = "Results"
    End Sub



Or in mine, I forgot to add that if you take out the underscore, you need to have it all on the first line like this:

Private Sub btnExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExecute.Click
        Dim cmd As SqlCommand = SqlConnection1.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = txtQuery.text
        Dim da As SqlDataAdapter = New SqlDataAdapter
        da.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "Results")
        dgResults.DataSource = ds
        dgResults.DataMember = "Results"
    End Sub

All of this:

Private Sub btnExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExecute.Click


is on a single line, not broken over two lines.