SetConnections just lines it all up for you. You can just call the GetActiveConnection strings and manually set the connection. If ConnectionManager.GetApplicationActiveConnectionString("MyKey", "").Length > 0 Then
'-- You have an active connection
End If
Once you have the connection string you can just manually add it to the datasources collection:
MicroFOur.StrataFrame.Data.Databasics.DataSources.Add(New SqlDbDataSourceItem("",MyConnectionString)