Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
                myConn = New SqlConnection("Data Source=Privat;User" & _
                "ID=sa;Password=sa;Initial Catalog=model")
         myCmd = myConn.CreateCommand
         myCmd.CommandText = "sp_spaceused"
        myCmd.Parameters.Add("@objname", SqlDbType.NVarChar, 776, _
         "syscolumns") 
        myCmd.CommandType = CommandType.StoredProcedure
 
        myConn.Open()
        myReader = myCmd.ExecuteReader()
              Do While myReader.Read()
            results = results & myReader.GetString(0) & vbLf & results & _
              myReader.GetString(1) & vbLf & results & myReader.GetString(2) 
        Loop
        MsgBox(results)
        myReader.Close()
        myConn.Close()
    End Sub

 myCmd.Parameters.Add("@objname", SqlDbType.NVarChar, 776, "syscolumns")