Updation query in VB.net

Hello experts I am working on an application where I update the MsAccess database by coding. Now I am stuck with minor error but i did't able to rectify.
please tell me what's wrong in this code
Private Sub updateAppNote()
If AppConn.State.ToString = "Closed" Then
AppConn.Open()
End If