Visual Basic

SqL = "select * from report_tab where idd='" & T1.Text & "'"
Set rs = dB.OpenRecordset(SqL)
With rs
   .MoveFirst
   .Edit
   !no = T2.Text
   !ext = T3.Text
   .Update
   MsgBox "Updated", vbOKOnly
End With

Dim driveMedia As New ManagementClass("Win32_CDROMDrive")

                       For Each mo As ManagementObject In driveMedia.GetInstances()

                           MsgBox((mo.GetPropertyValue("MediaType")))

                       Next

Dim driveMedia As New ManagementObjectSearcher("Select * From Win32_CDROMdrive")
                       For Each mo As ManagementObject In driveMedia.Get()
                           Debug.WriteLine(mo.GetPropertyValue("MaxMediaSize"))
                       Next

ManagementObjectSearcher o = new ManagementObjectSearcher("select * from win32_cdromdrive");
foreach (ManagementObject obj in o.Get()) {
  string s = obj.GetText(TextFormat.Mof);
}

Dim _oFSO = CreateObject("Scripting.FileSystemObject")
Dim _oDrive = _oFSO.GetDrive("G:")
MessageBox.Show(_oDrive.TotalSize)