Dim prefixText As String = "vg"Dim cn As New Data.OleDb.OleDbConnection("Provider=ADSDSOObject")Dim cmd As Data.OleDb.OleDbCommand = cn.CreateCommand()cmd.CommandText = "select sAMAccountName, displayName, title, userAccountControl from 'LDAP://DC=Vecelliogroup,DC=COM' where objectCategory = 'User' and title <> ' ' and (userAccountControl <> '66050' and userAccountControl <> '514') and sAMAccountName like '%" & prefixText & "%'" Try Dim da As New Data.OleDb.OleDbDataAdapter(cmd) da.Fill(mySqlDataTable)