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