Dim conStr As String="Provider=Microsoft.JET.OLEDB.4.0;datasource=d:\\nwind.mdb"
Dim sqlStr As String="SELECT*FROMEmployees"
Dim conn As System.Data.OleDb.OleDbConnection=NewSystem.Data.OleDb.OleDbConnection(conStr)
Dim ds As DataSet = New DataSet()
Dim da As System.Data.OleDb.OleDbDataAdapter=NewSystem.Data.OleDb.OleDbDataAdapter(sqlStr,conn)
da.Fill(ds,"Employees")
Dim dm As NewFarPoint.Web.Spread.Model.DefaultSheetDataModel(ds,"Employees")
FpSpread1.ActiveSheetView.DataModel=dm
FpSpread1.ActiveSheetView.OperationMode=FarPoint.Web.Spread.OperationMode.RowMode
dm.ActiveRow=2
conn.Close()