आपने कभी भी अपनी कनेक्शन स्ट्रिंग को कनेक्शन ऑब्जेक्ट को असाइन नहीं किया है, जैसे त्रुटि कह रही है।
Con.open से पहले कनेक्शन स्ट्रिंग सेट करने वाली एक लाइन डालें।
Con.connectionstring = connection
Con.Open()
या बेहतर अभी तक, अपने उपयोग कथन को इस प्रकार बदलें
Dim Connection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=G:\VB Project\Library Catalog System\Library Catalog System\library.mdf;Integrated
Security=True;Connect Timeout=30;User Instance=True"
Using Con As New SqlConnection(connection)