Property DataSource As Object

Dim instance As IDataSourceSupport
Dim value As Object
 
instance.DataSource = value
 
value = instance.DataSource

object DataSource {get; set;}

FarPoint.Win.Spread.Model.IDataSourceSupport dss;
string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= " + Application.StartupPath + "\\Patients2000.mdb";
string sqlStr = "SELECT * FROM Patients";
string sqlStr1 = "SELECT * FROM Appointment";
System.Data.OleDb.OleDbConnection conn  = new System.Data.OleDb.OleDbConnection(conStr);
DataSet ds = new DataSet();
System.Data.OleDb.OleDbDataAdapter daCust = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn);
daCust.Fill(ds, "Patients");
System.Data.OleDb.OleDbDataAdapter daOrder = new System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn);
daOrder.Fill(ds, "Appointment");
dss = (FarPoint.Win.Spread.Model.IDataSourceSupport)fpSpread1.ActiveSheet.Models.Data;
dss.DataSource = ds;
dss.DataMember = "Appointment";
fpSpread1.ActiveSheet.Models.Data = (FarPoint.Win.Spread.Model.ISheetDataModel)dss;

Dim dss As FarPoint.Win.Spread.Model.IDataSourceSupport
Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= " & Application.StartupPath & "\Patients2000.mdb"
Dim sqlStr As String = "SELECT * FROM Patients"
Dim sqlStr1 As String = "SELECT * FROM Appointment"
Dim conn As New System.Data.OleDb.OleDbConnection(conStr)
Dim ds As DataSet = New DataSet()
Dim daCust As New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
daCust.Fill(ds, "Patients")
Dim daOrder As New System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn)
daOrder.Fill(ds, "Appointment")
dss = FpSpread1.ActiveSheet.Models.Data
dss.DataSource = ds
dss.DataMember = "Appointment"
FpSpread1.ActiveSheet.Models.Data = dss