System.Data.SqlClient.SqlException: Incorrect Syntax Near '&>'.

I keep getting this error whenever I try to run my query:   System.Data.SqlClient.SqlException: Incorrect syntax near '>'.

I'm just trying to fill a  dataset with three tables that contain the past few days headlines...what am I doing wrong?? Private Sub fishHeadlines()

Dim dateNow As DateTime = DateTime.Now()Dim dateThen As DateTime = DateTime.Today.AddDays(-2)

'create the table array so we can create the sql statement in a moment

Dim table() As Stringtable = New String() {"Snapper", "Scissor", "MahiMahi"}

Dim strSelect As String

'Create a dataset to hold the tables containing the headlinesDim headlinesDS As New DataSet()

'create the connection string - SnapshotConnectionString is in web.config file

Dim strConnect As StringstrConnect = ConfigurationManager.ConnectionStrings("fishConnectionString").ConnectionString

'create a connection object to the databaseDim objConnect As New SqlConnection(strConnect)

objConnect.Open()

Dim i As Integer

'fill the datatablesFor i = 0 To table.Length

strSelect = "SELECT Event FROM " & table(i) & "WHERE (DateOfEntry > '" & dateThen & "')"

'create a data adapter object using connection and sql statementsDim objDA1 As New SqlDataAdapter(strSelect, objConnect)

'fill the dataset

objDA1.Fill(headlinesDS, table(i))

Next

Dim strTable As StringDim dr As DataRow

strTable = "<table>"For i = 0 To table.Length

For Each dr In headlinesDS.Tables(table(i)).Rows

strTable += "<tr><td>" & dr(0).ToString() & "</td></tr>"

Next

Next

strTable += "</table>"

'display the data

lblHeadlines.Text = strTable

End Sub