MS SQL Connections

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -14,7 +14,7 @@ Public Class frmSQL_DESIGNER
         Try
             lblSaveFinalIndex.Visible = False
             TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION)
+            TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
             TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
 
             CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBPM_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True)
@@ -229,4 +229,8 @@ Public Class frmSQL_DESIGNER
             Me.SQL_COMMANDTextBox.SelectionStart = altePosition + val.Length
         End If
     End Sub
+
+    Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) Handles btnShowConnections.Click
+        frmConnection.ShowDialog()
+    End Sub
 End Class