กดRun แล้วขึ้นเออเร่อ เหมือนไม่สามารถRun ได้ ต้องทำไงดีครับ มีรูปแคปมา

 Sub OpenDB()
        If dbCon.State = ConnectionState.Closed Then
            Try
                dbCon.Open()
            Catch ex As Exception
            End Try
        End If
    End Sub

If Not objcon.State = ConnectionState.Open Then
            objcon.Open()
End If