diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 547d994..94f600c 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -67,7 +67,7 @@ Public Class frmMain
             TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
 
-            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1},'')", Environment.UserName, 1)
+            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',1)", Environment.UserName)
             Dim DT_CHECKUSER_MODULE As DataTable = MyDatabase.GetDatatable(sql)
 
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then