MM.. al parecer tienes esto que no está bien:
Dim objCmd As New
OleDbCommand (sSQL, objConn)
objConn.open
Dim ds as dataset
DS = new DataSet()
objcmd.Fill(ds, "principa_adm")
cambialo por:
Dim objCmd As New
OleDb.OleDbDataAdapter(sSQL, objConn)
objConn.open
Dim ds as dataset
DS = new DataSet()
objcmd.Fill(ds, "principa_adm")
Ya que el metodo Fill no pertence a un tipo Command
Saludos