Dim objshdd As Object
        Dim objbhdd As Object
        'Dim hddt As String
        objshdd = WMI.InstancesOF("Win32_DiskDrive")
        For Each objbhdd In objshdd
            TextBox11.Text &= objbhdd.Caption.ToString & vbCrLf
        Next

            SqlCom = New OleDb.OleDbCommand("INSERT INTO [HDD] ( [hdd], [pcname]) VALUES ('" & TextBox11.Text & "', '" & PC & "')", Con)
            Con.Open()
            SqlCom.ExecuteNonQuery()
            Con.Close()