Help needed with DB Initialization

Can someone please look at this and tell me where I may have gone wrong in my Initialization?

I did Me.lblMessage.Text = strXML and got nothing.
Public Function CreateChart() As String

'Database Objects - Initialization
Dim cmd As SqlCommand
Dim dtrFC As SqlDataReader
Dim ConnectStr As String = _
ConfigurationManager.ConnectionStrings("2ConnectionString").ConnectionString
Dim Con As New SqlConnection(ConnectStr)
Con.Open()
cmd = New SqlCommand
cmd.CommandText = "TotalsCurrent"
cmd.Command ...