syntax error from clause

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

     Dim intResult As Integer
     conn = New OleDbConnection(strConn)
     conn.Open()

     ' Catch sa error k2ng form clause
     Try
         strSQL = "SELECT * FROM User WHERE (Username LIKE ?) AND (Password LIKE ?)"the

         'strSQL = "SELECT * FROM User WHERE Username = @Username AND Password = @Password"

         Dim dbCmd As New OleDbCommand(strSQL, conn)
         'G Add lng
         'dbCmd.CommandType = CommandType.Text

         dbCmd.Parameters.AddWithValue("Username", txtUsername.Text)
         dbCmd.Parameters.AddWithValue("Password", txtPassword.Text)
        ****** dbReader = dbCmd.ExecuteReader()


         Using dbReader
             If dbReader.Read() Then
                 Dim strResult1 As String = dbReader.Item("Username")
                 Dim strResult2 As String = dbReader.Item("Password")

                 If chkRememberUsername.Checked = True Then
                     My.Settings.Username = txtUsername.Text
                     My.Settings.Save()
                     My.Settings.Reload()

                 End If

                 Me.Close()
                 mediaSoundPlayer.Stream = My.Resources.tada
                 mediaSoundPlayer.Play()

                 frmLoading.ShowDialog()

                 'frmMain.LogOffToolStripMenuItem.Text = "Log Off"
                 'frmMain.SettingToolStripMenuItem.Enabled = True
                 frmMain.LogOffToolStripMenuItem.Text = "Log Off"
                 Me.Close()
                 frmMain.Show()
             Else

                 intResult = MessageBox.Show("Invalid Username Or Password", "Login", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)


                 If intResult = DialogResult.Cancel Then
                     Me.Close()

                 Else
                     intResult = DialogResult.Retry
                     Me.Show()

                 End If
                 frmMain.SettingsToolStripMenuItem.Enabled = False
                 frmMain.LogOffToolStripMenuItem.Text = "Login"


             End If


         End Using
         conn.Close()


     Catch ex As Exception
         MsgBox("System Error", MsgBoxStyle.Critical, "Error in login")
     End Try
     'frmMain.Show()



 End Sub