急,高手帮忙解决,谢谢!

[pttiger]

Imports System.Data.SqlClient
Public Class fmmain

Dim strprogramid As String
Dim bnfirstrun As Boolean
Dim struserid As String
...
Private Sub fmmain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
If bnfirstrun Then
bnfirstrun = False
Dim fmpassword As New fmpassword()
If fmpassword.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Me.Close()
Else
struserid = fmpassword.myuser (fmpassword.myuser 有问题)
End If
End If

End Sub
.....
Private Sub bnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnexit.Click
If MessageBox.Show("离开进销存管理系统?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then

Me.Close()
End If

End Sub
(MessageBox.Show("离开进销存管理系统?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)有问题)
哪为高手帮助解决一下啊