diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index 3ca7dcb..6748ca9 100644
--- a/source/clog-form.lisp
+++ b/source/clog-form.lisp
@@ -27,7 +27,7 @@
    (cc:query (connection-id clog-obj) "clog['post-data']")))
 
 (defun form-data-item (form-data item)
-  "Return value for ITEM from a FROM-DATA a-list"
+  "Return value for ITEM from FROM-DATA a-list"
   (cdr (assoc item form-data :test #'equalp)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/tools/clog-db-admin.lisp b/tools/clog-db-admin.lisp
index b2533ea..d2dcb39 100644
--- a/tools/clog-db-admin.lisp
+++ b/tools/clog-db-admin.lisp
@@ -9,6 +9,49 @@
     :accessor body
     :documentation "Top level access to browser window")))
 
+(defun on-db-open (obj)
+  (let* ((app (connection-data-item obj "app-data"))
+	 (win (create-gui-window obj
+				 :title "Open Database"
+				 :content
+"<form id=odb-form class='w3-container' onSubmit='return false;'>
+<label class='w3-text-black'><b>Database Type</b></label>
+<select class='w3-select w3-border' name='db-type'>
+<option value='sqlite3'>SQLite3</option>
+<option disabled value='mysql'>MySQL</option>
+<option disabled value='postgres'>Postgres</option>
+</select>
+
+<label class='w3-text-black'><b>Database Name</b></label>
+<input class='w3-input w3-border' type='text' name='db-name'>
+ 
+<label class='w3-text-black'><b>User Name</b></label>
+<input class='w3-input w3-border' type='text' name='db-user' disabled>
+
+<label class='w3-text-black'><b>Password</b></label>
+<input class='w3-input w3-border' type='password' name='db-pass' disabled>
+
+<label class='w3-text-black'><b>Host</b></label>
+<input class='w3-input w3-border' type='password' name='db-host' disabled>
+
+<label class='w3-text-black'><b>Port</b></label>
+<input class='w3-input w3-border' type='password' name='db-port' disabled>
+
+<button class='w3-btn w3-black' id=odb-open >Open</button>
+<button class='w3-btn w3-black' id=odb-cancel>Cancel</button>
+ 
+</form>"
+				 :left (- (/ (inner-width (window (body app))) 2.0) 200)
+				 :top (- (/ (inner-height (window (body app))) 2.0) 225)
+				 :width   400
+				 :height  450)))
+    (set-on-click (attach-as-child obj "odb-open") (lambda (obj)
+						     (print "submit")))
+    (set-on-click (attach-as-child obj "odb-cancel") (lambda (obj)
+						       (window-close win)))))
+	 
+
+
 (defun on-help-about (obj)
   (let* ((app (connection-data-item obj "app-data"))
 	 (about (create-gui-window obj
@@ -37,7 +80,7 @@
   (let* ((menu  (create-gui-menu-bar body))
 	 (tmp   (create-gui-menu-icon menu :on-click #'on-help-about))
 	 (file  (create-gui-menu-drop-down menu :content "Database"))
-	 (tmp   (create-gui-menu-drop-down menu :content "Open Connection" :on-click #'on-db-open))
+	 (tmp   (create-gui-menu-item file :content "Open Connection" :on-click #'on-db-open))
 	 (win   (create-gui-menu-drop-down menu :content "Window"))
 	 (tmp   (create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows))
 	 (tmp   (create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows))