I posted a message about this and have fixed the part where the SQL
problem was but this code the I am using to create a home dir space
limit is still giving me problems and not much to go with since I get
a "Netware error" and that's it.

Here is the code causing the problem:

YEah I noticed that but wasn't sure if I did that it would chop off
where the problem was. Anyway, I figured out the SQL part of it but I
still can't figure out why I get an error when trying to set space
limits. I get a generic error which tells me nothing that gives me
any idea what the problem is. Here is the code that it uses:

Dim MKDir As NWVolAdmLib.NWEntryType
Dim Path As New NWDirLib.NWPath
Dim NewDirectory As NWVolAdmLib.NWEntry
Dim NewTrustee As NWVolAdmLib.NWTrustee 'Making a trustee
object
Dim shortName As String = inUser.ShortName
Dim logRec As String

MKDir = NWVolAdmLib.NWEntryType.NETWAREDIR 'Specifies that
this object is a directory
NWVolAdm1.FullName = getVolume()

Dim d1 As String = "\" & inDirectoryName & "\" & shortName
Try
NewDirectory = NWVolAdm1.FindEntry(NWVolAdm1.FullName &
d1)
logRec += " N"
Catch ex As Exception
Try
'Creating the directory
NewDirectory = NWVolAdm1.Entry.Entries.Add(d1, MKDir)
nHomeDirs.Text += 1
logRec += " Y"
Catch exp As Exception
logRec += " - " + exp.Message + "::" +
exp.InnerException.Message.ToString()
End Try
End Try
Dim t1 = "NDS:\\" & tree & "\" & organization & "\Student\" &
college & "\" & shortName
Try
'getting reference to trustee objects of directory
NewTrustee = NewDirectory.Trustees.Add(t1)
'setting rights
NewTrustee.EffectiveRights.Create = True
NewTrustee.EffectiveRights.Erase = True
NewTrustee.EffectiveRights.Write = True
NewTrustee.EffectiveRights.Modify = True
NewTrustee.EffectiveRights.Read = True
NewTrustee.EffectiveRights.Scan = True
trusteeSet.Text += 1
logRec += " Y"
Catch ex As Exception
logRec += " N"
End Try

'##########################################
'HERE IS WHERE I'm having trouble.
Dim spcLimit As NWVolAdmLib.NWSpaceLimit
Dim HomeDirVolume = getVolume()
NWVolAdm1.FullName = HomeDirVolume
t1 = getVolume() + "\Home\" + shortName
Try
'WHEN we hti this line we throw the exception
spcLimit = NWVolAdm1.SpaceLimits.Add(t1,
CLng(inDirAmount))
spaceSet.Text += 1
logRec += " Y"
Catch ex As Exception
logRec += " N"
End Try
'############################################
NewTrustee = Nothing
NewDirectory = Nothing
Return logRec