c m d 1.Connection = s q l C o n n e c t i o n 1
c m d 1 . C o m m a n d T ext = s q l comm
Dim reader As S y s t e m . D a t a . S q l C l i e n t . S q l D a t a R e a d e r = c m d 1 . E x e c u t e R e a d er
Do While reader.Read()
Dim s 1 As String = r e a d e r . G e t St ring(4)
M e s s a g e B o x.Show( s 1 )
Loop
reader.Close()
s q l C o n n e c t i o n 1 .Close() '关闭连接,释放资源