پیغام باز بودن دیتابیس

سلام

(در ادامه تاپیک قبلی) من یه فرم دارم که Username/Password رو از دیتابیس چک میکنه. حالا اگه کاربر دوباره اشتباه کنه این پیغام خطای The connection was not closed. The connection's current state is open نشون داده میشه.


ولی سری اول پیغام Wrong Username Or Password نشون داده میشه. کجای کد زیر باید دیتابیس رو ببندم. اصلا کد من Optimized هستش.

کد:

---


        Conn.Open()
        Dim QueryUserName As String
        Dim QueryPassword As String
        Dim DBUsername As String
        Dim DBPassword As String
        '--------------------------------
        QueryUserName = "SELECT Username From FalAdminPassword"
        CMD = New OleDb.OleDbCommand(QueryUserName, Conn)
        CMD.ExecuteScalar()
        DBUsername = CMD.ExecuteScalar()


        QueryPassword = "SELECT Password From FalAdminPassword"
        CMD = New OleDb.OleDbCommand(QueryPassword, Conn)
        CMD.ExecuteScalar()
        DBPassword = CMD.ExecuteScalar()

        If txtUsername.Text = DBUsername And txtPassword.Text = DBPassword Then
            frmMain.Show()
            Me.Close()
            Conn.Close()
            Conn.Dispose()
        Else
            MsgBox("Wrong Username Or Password!?" & Chr(32) & "Try Again", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)

            txtUsername.Focus()
            txtUsername.SelectAll()
        End If

---

دستور Close رو قبل از هر دستور Open بکار ببر. مشکلت حل خواهد شد.

کوبیسم وار جواب دادی Shalineh جان.

خیلی ممنون
امیدوارم تو مشکلهای بعدی هم کمک کنی