No Value given for one or more required parameters (OledbException) [Resolved]

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
Dim EXCELCONN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TEST.XLS;Extended Properties='Excel 8.0;HDR=NO'"

'Dim EXCELCON As String = System.Configuration.ConfigurationManager.AppSettings("Connstring")

'Dim EXCELCONN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\TEST.XLS;Persist Security Info=True"

Dim connection As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection(EXCELCONN)
Dim command As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter("select circle , state, oid from [Sheet1$]", connection)
connection.Open()

Dim ds As New System.Data.DataSet
command.Fill(ds)
gv.DataSource = ds
gv.DataBind()
connection.Close()

End Sub

[Resolved]