创建TXT文本并写入及查询以及数据库的写入与查询交换位置vb.net

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTryDimpathAsStringpath="C:\DocumentsandSettings\Administrator\MyDocuments\VisualStudio2008\Projects\创建TXT文本并写入及查询\12312\bin\Debug\lio.Txt"'记得自己改路径（绝对路径）