ช่วยหน่อยค่ะ VB.NET ไม่สามารถเชื่อมต่อฐานข้อมูล SQL ได้ค่ะ

 Private Sub frmSup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strConn = "Data Source=AO\SQLEXPRESS;Initial Catalog=AO_Computer;Integrated Security=True; "
        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        lblID.Show()
        AutoGenerateSupID()
    End Sub