diff --git a/Modules.Database/ConnectionString.vb b/Modules.Database/ConnectionString.vb
new file mode 100644
index 00000000..ec5575f1
--- /dev/null
+++ b/Modules.Database/ConnectionString.vb
@@ -0,0 +1,20 @@
+Public Class ConnectionString
+    Public Enum ConnectionStringType
+        MSSQLServer
+        ODBC
+        Oracle
+    End Enum
+
+    Public Shared Function GetConnectionStringType(pConnectionString As String) As ConnectionStringType
+        ' This variable only exists to shorten the if-conditions
+        Dim c = pConnectionString
+
+        If (c.Contains("Server=") Or c.Contains("Data Source=")) And (c.Contains("Database=") Or c.Contains("Initial Catalog=")) Then
+            Return ConnectionStringType.MSSQLServer
+        ElseIf (c.Contains("dsn=")) Then
+            Return ConnectionStringType.ODBC
+        Else
+            Return ConnectionStringType.Oracle
+        End If
+    End Function
+End Class
diff --git a/Modules.Database/Database.vbproj b/Modules.Database/Database.vbproj
index 04526263..6a4c15bd 100644
--- a/Modules.Database/Database.vbproj
+++ b/Modules.Database/Database.vbproj
@@ -91,6 +91,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ConnectionString.vb" />
     <Compile Include="Constants.vb" />
     <Compile Include="Exceptions.vb" />
     <Compile Include="Adapters\Firebird.vb" />