There are several options. You can test on the data source type to determine which provider is being used based on the type of object which would probably be the easiest.Dim loType As System.Type = MicroFour.StrataFrame.Data.DataBasics.DataSources.Item("").GetType()
If loType Is GetType(MicroFour.StrataFrame.Data.SqlDataSourceItem) Then
MsgBox("SQL Server")
ElseIf loType Is GetType(MicroFour.StrataFrame.Data.OracleDataSourceItem) Then
MsgBox("Oracle")
ElseIf loType Is GetType(MicroFour.StrataFrame.Data.VfpDataSourceItem) Then
MsgBox("VFP")
ElseIf loType Is GetType(MicroFour.StrataFrame.Data.AccessDataSourceItem) Then
MsgBox("Access")
End If