[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان
انت لم تذكر اين المشكلة وفي اي سطر يكون الخطأ ان كان موجودا 
ولكن من خلال كودك يبدو ان ليس هناك خطأ كل مافي الامر ان الكود ينفذ ثم يغلق البرنامج وذلك بسبب التالي :

كود :

If dt.Rows.Count > 0 Then
          home.Label1.Text = dt.Rows(0).Item("username")
          home.Show()
          Me.Close()
      Else
          MsgBox("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")
      End If

انت هنا تقوم بوضع اسم المستهدم في اللايبل للفورم الرشيسية ثم تقوم بعرضها وبعدها تقول اغلق الفورم الحالية وهذا يعني ببساطة اغلاق البرنامج  
عدل الاسطر السابقة الى مايلي

كود :

If dt.Rows.Count > 0 Then
            home.Label1.Text = dt.Rows(0).Item("username")
           Me.Hide()
           home.Show()

       Else
           MsgBox("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")
       End If

هنا ستقوم اولا باخفاء فورم الدخول وستظهر الفورم الرئيسية
طبعا انا لا احبذ هذه الطريقة 
=============
الافضل ان تظهر الفورم الرئيسية وعند تحميلها استدعي  فورم الدخول وبهذا يمكنك استخدام  Me.Close شرظ ان يكون اعلاق البرنامج  عند اغلاق أخر فورم مفتوحة وهذه موجود في Properties البند ShutDown Mode