001 Module Module1 002 003 Sub Main() 004 With New System.Data.SqlClient.SqlConnection("...") 005 .Open() 006 Dim SqlCmd As System.Data.SqlClient.SqlCommand = .CreateCommand 007 With SqlCmd 008 End With 009 With .CreateCommand 010 End With 011 .Close() 012 End With 013 End Sub 014 015 End Module