我是用VB2008测试了下你的代码，我不知道你用的什么版本，不过这段代码在我的机器上有某些错误
一、要改con=New Connection()为con = New SqlConnection()
二、测试目标为我的机器上的数据库，所以当然要改con.ConnectionString，
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=F:\.NET学习\SQL数据库连接\employer.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
上面这个连接字符串，我在是数据源窗口中执行添加数据源，并选择数据库且测试连接后生成的连接字符串（此操作只为复制这个连接字符串，然后就取消，并没有添加数据源）
在这两个改动的基础上就可以运行了，没有出错。
只是我没有找出来你的问题所在。
试着测试连接看能不能成功